## simulated data
y <- matrix(rnorm(50*4,sd=1),50,4)
rownames(y) <- paste("Pair",1:50)
# fit and eBayes
fit <- lmFit(y)
fit <- eBayes(fit)
tt = interactiontable(fit,sort="size")
head(tt)
Run the code above in your browser using DataLab