## Not run:
# library(org.Dm.eg.db)
# library(KEGG.db)
# ##load sample data
# data("KcViab_GSCA")
# ##print summary of results
# summarize(KcViab_GSCA, what="Result")
# ##print top significant gene sets in GO.BP
# topPWKEGG<-getTopGeneSets(KcViab_GSCA, "GSEA.results", "PW_KEGG", allSig=TRUE)
# ##view a gene set
# viewGSEA(KcViab_GSCA, "PW_KEGG", topPWKEGG[["PW_KEGG"]][1])
# ## End(Not run)
Run the code above in your browser using DataLab