diff options
| author | Alexander Kabui | 2021-09-14 23:41:46 +0300 |
|---|---|---|
| committer | Alexander Kabui | 2021-09-14 23:41:46 +0300 |
| commit | 56092341abe9579b995ff6105722154183b31d22 (patch) | |
| tree | f9314b5b675f49dd42084892a8e289bf788d0783 | |
| parent | 49b852baa46c0f06caa2f0621b18d521cf334483 (diff) | |
| download | genenetwork3-56092341abe9579b995ff6105722154183b31d22.tar.gz | |
remove debug statements
| -rw-r--r-- | scripts/wgcna_analysis.R | 9 |
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') |