aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Kabui2021-10-13 07:29:24 +0300
committerBonfaceKilz2021-10-25 14:16:21 +0300
commitd1be5270b99959f99802a7704562eeaaeb504122 (patch)
tree68435507151ed52ce73c993bb159e76fb08c75b7
parentc6f411416ba70f2013f1eb69e13a84ab70adfca4 (diff)
downloadgenenetwork3-d1be5270b99959f99802a7704562eeaaeb504122.tar.gz
minor fixes for sript enable annotations
-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)