library(limma)
data(Egambia)
design <- cbind(Intercept=rep(1, 30), TB=rep(c(0,1), each= 15))
fit <- eBayes( lmFit(Egambia[,-c(1:3)], design))
ret <- tmodLimmaTest(fit, genes=Egambia$GENE_SYMBOL)
tmodSummary(ret)
tmodPanelPlot(ret)
Run the code above in your browser using DataLab