## Not run:
# ## load an example of IcaSet
# data(icaSetCarbayo)
#
# ## define params
# # Use threshold 3 to select contributing genes.
# # Results of enrichment analysis will be written in path 'resPath(params)/GOstatsEnrichAnalysis'
# params <- buildMineICAParams(resPath="~/resMineICACarbayo/", selCutoff=3)
#
# ## Annotation package for IcaSetCarbayo is hgu133a.db.
# # check annotation package
# annotation(icaSetCarbayo)
#
# ## Define universe, i.e the set of EntrezGene IDs mapping to the feature IDs of the IcaSet object.
# universe <- as.character(na.omit(unique(unlist(AnnotationDbi::mget(featureNames(icaSetCarbayo),
# hgu133aENTREZID, ifnotfound = NA)))))
#
# ## Apply enrichement analysis (of the contributing genes) to the first components using gene sets from KEGG.
# # Since an annotation package is available, we don't need to fill arg 'entrez2symbol'.
# # run the actual enrichment analysis
# hypergeoAn(icaSet=icaSetCarbayo[,,1], params=params, db="GO",onto="BP", universe=universe)
# ## End(Not run)
Run the code above in your browser using DataLab