Mercurial > repos > moheydarian > heatmap2

changeset 15:e9b93b60de80 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author moheydarian
date Thu, 27 Apr 2017 13:34:10 -0400
parents b3eb35cfc36d
children ee0ff4253269
files heatmap2.R
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/heatmap2.R	Thu Apr 27 13:30:18 2017 -0400
+++ b/heatmap2.R	Thu Apr 27 13:34:10 2017 -0400
@@ -69,9 +69,11 @@
 if(options$cluster== "Default"){
   hclust_fun = function(x) hclust(x, method="complete")
   dist_fun = function(x) dist(x, method="maximum")
-  clust = distfun=dist_fun, hclustfun=hclust_fun
+  dclust = distfun=dist_fun
+  hclust = hclustfun=hclust_fun
 }else{
-  clust = NULL
+  dclust = NULL
+  hclust = NULL
 }
 
 if(options$labels== "both"){
@@ -91,7 +93,7 @@
 pdf(file="Rplot.pdf")
 colorscale
 heatmap.2(linput,
-          clust, scale = options$scale,
+          dclust, hclust, scale = options$scale,
           col=colfunc(50), trace="none", density.info = "none", labs, margins=c(8,2),
           main = options$title, key.xlab= options$key, keysize=1)
 dev.off()