[R-gregmisc-users] SF.net SVN: r-gregmisc:[1324] trunk/gplots/tests/heatmap_to_heatmap.2_test. R

[<wa...@us...>]

Revision: 1324
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1324&view=rev
Author:   warnes
Date:     2009-05-08 23:07:20 +0000 (Fri, 08 May 2009)

Log Message:
-----------
Add test of using a dendrogram created by heatmap() with heatmap.2()

Added Paths:
-----------
    trunk/gplots/tests/heatmap_to_heatmap.2_test.R

Added: trunk/gplots/tests/heatmap_to_heatmap.2_test.R
===================================================================
--- trunk/gplots/tests/heatmap_to_heatmap.2_test.R	                        (rev 0)
+++ trunk/gplots/tests/heatmap_to_heatmap.2_test.R	2009-05-08 23:07:20 UTC (rev 1324)
@@ -0,0 +1,16 @@
+library(gplots)
+data(mtcars)
+
+x <- as.matrix(mtcars)
+
+## draws expected image
+testHeatmap <- heatmap(x, Colv=NA, col=bluered(256), scale="column",
+                       keep.dendro=TRUE)
+
+# to prove this dendro is OK, redraw with same function:
+heatmap(x, Colv=NA, col=bluered(256), scale="column",
+        keep.dendro=TRUE, Rowv=testHeatmap$Rowv)
+
+# but it doesn't work with heatmap.2()
+heatmap.2(x, Colv=NA, col=bluered(256), scale="column",
+          Rowv=testHeatmap$Rowv, dendrogram="row")


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.