## Not run:
# library(org.Dm.eg.db)
# library(KEGG.db)
# ##load phenotype vector (see the vignette for details about the
# ##preprocessing of this data set)
# data("KcViab_Data4Enrich")
# DM_KEGG <- KeggGeneSets(species="Dm")
# GSCscores <- gseaScores(geneList=KcViab_Data4Enrich, geneSet=DM_KEGG[[1]],
# exponent=1, mode="graph")
# gseaPlots(runningScore=GSCscores$runningScore, enrichmentScore=
# GSCscores$enrichmentScore, positions=GSCscores$positions,
# geneList=KcViab_Data4Enrich)
# ## End(Not run)
Run the code above in your browser using DataLab