library(EGSEAdata)
data(il13.data)
v = il13.data$voom
contrasts = il13.data$contra
gs.annots = buildIdxEZID(entrezIDs=rownames(v$E), species="human",
msigdb.gsets="none",
kegg.updated=FALSE, kegg.exclude = c("Metabolism"))
gsa = egsea(voom.results=v, contrasts=contrasts, gs.annots=gs.annots,
symbolsMap=v$genes,
baseGSEAs=egsea.base()[-c(2,5,6,9)], display.top = 5,
sort.by="avg.rank", egsea.dir="./il13-egsea-report",
num.threads = 2, report=FALSE)
topSets(gsa, contrast=1, gs.label="kegg", number = 10)
topSets(gsa, contrast=1, gs.label=1, sort.by="ora", number = 10,
names.only=FALSE)
topSets(gsa, contrast=0, gs.label="kegg", number = 10)
Run the code above in your browser using DataLab