# HG changeset patch
# User moheydarian
# Date 1493315657 14400
# Node ID 2c2a001e4c7370748f456b29dbcbbf76467236fb
# Parent  d3e13bf56f72e7b96367dacc50e097fd69263bbd
Uploaded

diff -r d3e13bf56f72 -r 2c2a001e4c73 heatmap2.R
--- a/heatmap2.R	Thu Apr 27 13:43:32 2017 -0400
+++ b/heatmap2.R	Thu Apr 27 13:54:17 2017 -0400
@@ -40,7 +40,7 @@
 
 input <- read.delim(options$input,sep='\t',header=TRUE)
 
-mat_input <- data.matrix(input[,2:ncol(input)])  
+mat_input <- data.matrix(input)  
 
 
 if(options$transform == "none"){
@@ -74,6 +74,8 @@
 }else{
   dclust = NULL
   hclust = NULL
+  rowd = Rowv = NULL
+  cold = Colv = NULL
 }
 
 if(options$labels== "both"){
@@ -97,7 +99,7 @@
 pdf(file="Rplot.pdf")
 colorscale
 heatmap.2(linput,
-          dclust, hclust, scale = options$scale, rlabs,clabs,
+          dclust, hclust, rowd, cold, scale = options$scale, rlabs,clabs,
           col=colfunc(50), trace="none", density.info = "none", margins=c(8,2),
           main = options$title, key.xlab= options$key, keysize=1)
 dev.off()