X <- matrix(rnorm(1000,0,0.5), nc=10)
L <- rep(0:1,c(5,5))
# genes 1-10 are differentially expressed
X[1:10,6:10]<-X[1:10,6:10]+1
fmod <- comp.modF(L)
fmod.X <- fmod(X)
# Another way of computing moderated F statistics
fmod.X <- comp.stat(X, L, "modf")
Run the code above in your browser using DataLab