library(ALL)
data(ALL)
## discriminate B-cell from T-cell
classLabel <- as.integer(sapply(ALL$BT, function(x) return(substr(x, 1, 1) == 'T')))
## Differentially expressed genes
geneList <- getPvalues(exprs(ALL), classlabel = classLabel,
alternative = "greater", correction = "BY")
hist(geneList, 50)
Run the code above in your browser using DataLab