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)
# Perform gene-by-gene anova
resmat <- rowaov(trans.eS)
resmat[,1:3]
Run the code above in your browser using DataLab