library(LMGene)
library(Biobase)
data(sample.eS)
data(sample.ind)
# glog transform data
trs.eS <- transeS (sample.eS, 667, 65)
# lowess normalize
ntrs.eS <- lnormeS(trs.eS)
# take means over probesets
genesample.eS<- psmeans (ntrs.eS, sample.ind)
Run the code above in your browser using DataLab