data(Psoriasis)
annofile <- system.file("extdata", "c2.cp.kegg.v5.0.symbols.gmt.xz",
package="cogena")
## Not run:
# genecl_result <- coExp(DEexprs, nClust=2:3, clMethods=c("hierarchical","kmeans"),
# metric="correlation", method="complete", ncore=2, verbose=TRUE)
#
# clen_res <- clEnrich(genecl_result, annofile=annofile, sampleLabel=sampleLabel)
#
# #summay this cogena object
# summary(clen_res)
#
# #heatmapPEI
# heatmapPEI(clen_res, "kmeans", "2")
# heatmapPEI(clen_res, "kmeans", "2", orderMethod="mean")
# heatmapPEI(clen_res, "kmeans", "3", CutoffNumGeneset=20,
# low = "#132B43", high = "#56B1F7", na.value = "grey50")
# ## End(Not run)
Run the code above in your browser using DataLab