aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-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')