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)
#
# #geneInCluster
# g1 <- geneInCluster(clen_res, "kmeans", "3", "2")
#
# #Up or Down genes with setting nCluster as "2".
# g2 <- geneInCluster(clen_res, "kmeans", "2", "1")
# ## End(Not run)
Run the code above in your browser using DataLab