library(LMGene)
library(Biobase)
data(sample.eS)
# transform data
trans.eS <- transeS(sample.eS, lambda = 727, alpha = 56)
# plot SD against rank of mean
plotMeanSD(trans.eS, line = TRUE)
plotMeanSD(sample.eS, line = TRUE, ymax = 1000)
Run the code above in your browser using DataLab