data(Psoriasis)
annofile <- system.file("extdata", "c2.cp.kegg.v5.0.symbols.gmt.xz",
package="cogena")
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)
upDownGene(clen_res, "kmeans", "3", add2=TRUE)
upDownGene(clen_res, "kmeans", "2", add2=FALSE)
Run the code above in your browser using DataLab