if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
tTestResult <- tTest(ALL, "BTtype")
histPvalue(tTestResult[,"p"], addLegend = TRUE, xlab = "Adjusted P Value")
histPvalue(tTestResult[,"p"], addLegend = TRUE, main = "Histogram of Adjusted P Values")
propDEgenesRes <- propDEgenes(tTestResult[,"p"])
}
Run the code above in your browser using DataLab