## Not run:
# library(org.Dm.eg.db)
# library(KEGG.db)
# ##load data for enrichment analyses
# data("KcViab_GSCA")
# ##plot and save the enrichment map
# viewEnrichMap(KcViab_GSCA, gscs=c("GO_MF"), allSig=TRUE, ntop=NULL, gsNameType="id",
# displayEdgeLabel=FALSE,layout="layout.fruchterman.reingold")
# ##append Gene set terms to results
# KcViab_GSCA<-appendGSTerms(KcViab_GSCA, goGSCs=c("GO_BP","GO_MF","GO_CC"),
# keggGSCs=c("PW_KEGG"))
# viewEnrichMap(KcViab_GSCA, gscs=c("GO_MF"), allSig=TRUE, ntop=NULL, gsNameType="term",
# displayEdgeLabel=FALSE,layout="layout.fruchterman.reingold")
# ## End(Not run)
Run the code above in your browser using DataLab