#Not run
#library(EBarrays); data(gould)
#x <- log(exprs(gould)[,-1]) #exclude 1st array
#groups <- pData(gould)[-1,1]
#patterns <- rbind(rep(0,3),c(0,0,1),c(0,1,1),0:2) #4 hypothesis
#gg <- fitGG(x,groups,patterns,method='EBayes')
#gg
#gg <- parest(gg,x,groups)
#gg
Run the code above in your browser using DataLab