if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
tTestRes <- tTest(object = ALL, groups = "BTtype", probe2gene = TRUE)
volcanoPlot(tTestRes)
}
Run the code above in your browser using DataLab