# see the vignette for more examples
# this example is adapted from R GSA package (Efron 2007)
set.seed(100)
x <- matrix(rnorm(1000*20),ncol=20)
rownames(x) <- paste("g",1:1000,sep="")
dd <- sample(1:1000,size=100)
u <- matrix(2*rnorm(100),ncol=10,nrow=100)
x[dd,11:20] <- x[dd,11:20]+u
y <- factor(c(rep('Control',10),rep('Experiment',10)))
results <- permTestLight(x, y, nperm = 1000, method = 'mean')
head(results)
Run the code above in your browser using DataLab