library(Biobase)
library(LMGene)
#data
data(sample.mat)
data(vlist)
raw.eS <- neweS(sample.mat, vlist)
# glog transform data
trans.eS <- transeS(raw.eS, lambda = 727, alpha = 56)
# Identify significant genes, using an FDR of 1 percent
LMGene(trans.eS, level = 0.01)
Run the code above in your browser using DataLab