diff options
| author | Alexander Kabui | 2021-10-13 07:29:24 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2021-10-25 14:16:21 +0300 |
| commit | d1be5270b99959f99802a7704562eeaaeb504122 (patch) | |
| tree | 68435507151ed52ce73c993bb159e76fb08c75b7 /scripts | |
| parent | c6f411416ba70f2013f1eb69e13a84ab70adfca4 (diff) | |
| download | genenetwork3-d1be5270b99959f99802a7704562eeaaeb504122.tar.gz | |
minor fixes for sript enable annotations
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/wgcna_analysis.R | 5 |
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) |