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)
# normalize
normed.exprs <- lnorm(exprs(trans.eS))
Run the code above in your browser using DataLab