##create example data
eset = matrix(rnorm(500*20),500,20, dimnames=list(1:500,1:20))
labels = c(rep("A",10),rep("B",10))
geneSets = list()
##create a number of gene sets with varying levels of differential expression.
for(i in 0:10){
genes = ((30*i)+1):(30*(i+1))
eset[genes,labels=="B"] = eset[genes,labels=="B"] + rnorm(1)
geneSets[[paste("Set",i)]] = genes
}
##calculate qusage results
results = qusage(eset,labels, "B-A", geneSets)
qsTable(results)
##show the first 5 sets, sorted by log fold change
qsTable(results, number=5, sort.by="logFC")
Run the code above in your browser using DataLab