aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Kabui2021-09-14 23:41:46 +0300
committerAlexander Kabui2021-09-14 23:41:46 +0300
commit56092341abe9579b995ff6105722154183b31d22 (patch)
treef9314b5b675f49dd42084892a8e289bf788d0783
parent49b852baa46c0f06caa2f0621b18d521cf334483 (diff)
downloadgenenetwork3-56092341abe9579b995ff6105722154183b31d22.tar.gz
remove debug statements
-rw-r--r--scripts/wgcna_analysis.R9
1 files changed, 1 insertions, 8 deletions
diff --git a/scripts/wgcna_analysis.R b/scripts/wgcna_analysis.R
index efe0336..16a44fd 100644
--- a/scripts/wgcna_analysis.R
+++ b/scripts/wgcna_analysis.R
@@ -56,14 +56,6 @@ network <- blockwiseModules(dataExpr,
PamRespectsDendro = FALSE
)
-# plot dendro add color
-
-# Convert labels to colors for plotting
-mergedColors = labels2colors(net$colors)
-# Plot the dendrogram and the module colors underneath
-
-
-# generate random name for png && save the image location
genImageRandStr <- function(prefix){
@@ -74,6 +66,7 @@ genImageRandStr <- function(prefix){
}
+mergedColors = labels2colors(net$colors)
png(genImageRandStr,width=1000,height=600,type='cairo-png')