#library
library(Biobase)
library(LMGene)
#data
data(sample.mat)
data(vlist)
LoggedSmpd0<-neweS(lnorm(log(sample.mat)),vlist)
pvlist<-genediff(LoggedSmpd0)
pvlist$Posterior[1:5,]
apvlist<-pvadjust(pvlist)
names(apvlist)
apvlist$Posterior.FDR[1:5,]
Run the code above in your browser using DataLab