aboutsummaryrefslogtreecommitdiff
path: root/scripts/wgcna_analysis.R
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/wgcna_analysis.R')
-rw-r--r--scripts/wgcna_analysis.R5
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/wgcna_analysis.R b/scripts/wgcna_analysis.R
index a5cbbe3..b0d25a9 100644
--- a/scripts/wgcna_analysis.R
+++ b/scripts/wgcna_analysis.R
@@ -13,8 +13,6 @@ cat("Running the wgcna analysis script\n")
# pass the file path to read json data
-
-
args = commandArgs(trailingOnly=TRUE)
if (length(args)==0) {
@@ -100,6 +98,7 @@ genImageRandStr <- function(prefix){
return(paste(randStr,".png",sep=""))
}
+
mergedColors <- labels2colors(network$colors)
imageLoc <- file.path(imgDir,genImageRandStr("WGCNAoutput"))
@@ -111,7 +110,7 @@ cat("Generating the CLuster dendrogram\n")
plotDendroAndColors(network$dendrograms[[1]],mergedColors[network$blockGenes[[1]]],
"Module colors",
-dendroLabels = FALSE, hang = 0.03,
+dendroLabels = NULL, hang = 0.03,
addGuide = TRUE, guideHang = 0.05)