## Not run:
# library(org.Dm.eg.db)
# library(KEGG.db)
# ##load data for enrichment analyses
# data("KcViab_Data4Enrich")
# ##select hits
# hits <- names(KcViab_Data4Enrich)[which(abs(KcViab_Data4Enrich) > 2)]
# ##set up a list of gene set collections
# PW_KEGG <- KeggGeneSets(species = "Dm")
# gscList <- list(PW_KEGG = PW_KEGG)
# ##create an object of class 'GSCA'
# gsca <- new("GSCA", listOfGeneSetCollections=gscList, geneList =
# KcViab_Data4Enrich, hits = hits)
# ##print gsca
# summarize(gsca, what = c("GeneList", "Hits"))
# ##do preprocessing (KcViab_Data4Enrich has already been preprocessed)
# gsca <- preprocess(gsca, species="Dm", initialIDs = "Entrez.gene",
# keepMultipleMappings = TRUE, duplicateRemoverMethod = "max",
# orderAbsValue = FALSE)
# ##print updated object
# summarize(gsca, what = c("GeneList", "Hits"))
# ## End(Not run)
Run the code above in your browser using DataLab