aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Kabui2021-09-14 23:40:17 +0300
committerAlexander Kabui2021-09-14 23:40:17 +0300
commit49b852baa46c0f06caa2f0621b18d521cf334483 (patch)
treee800d34f48ec2c14b87d30247dc815360cb272bb
parentb32f4ee074d55d8ab78863d4c5acc652ec9cd839 (diff)
downloadgenenetwork3-49b852baa46c0f06caa2f0621b18d521cf334483.tar.gz
function to generate rand str for image
-rw-r--r--scripts/wgcna_analysis.R16
1 files changed, 14 insertions, 2 deletions
diff --git a/scripts/wgcna_analysis.R b/scripts/wgcna_analysis.R
index 65ff36e..efe0336 100644
--- a/scripts/wgcna_analysis.R
+++ b/scripts/wgcna_analysis.R
@@ -1,7 +1,9 @@
# initial workspace setup
library(WGCNA);
-stringsAsFactors = FALSE
+library(stringi);
+
+options(stringsAsFactors = FALSE);
# load expression data **assumes csv format row(traits)(columns info+samples)
@@ -64,8 +66,18 @@ mergedColors = labels2colors(net$colors)
# generate random name for png && save the image location
+genImageRandStr <- function(prefix){
+
+ randStr <- paste(prefix,stri_rand_strings(1, 9, pattern = "[A-Za-z0-9]"),sep="_")
+
+ return(paste(randStr,".png",sep=""))
+}
+
+
+
+png(genImageRandStr,width=1000,height=600,type='cairo-png')
+
-png("WGCNAoutput.png",width=1000,height=600,type='cairo-png')
plotDendroAndColors(network$dendrograms[[1]],mergedColors[net$blockGenes[[1]]],
"Module colors",