Mercurial > repos > peter-waltman > ucsc_cluster_tools2

diff cluster.tools/heatmap.from.cluster.result.R @ 3:563832f48c08 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author peter-waltman
date Fri, 01 Mar 2013 19:51:25 -0500
parents 0decf3fd54bc
children
line wrap: on
line diff
--- a/cluster.tools/heatmap.from.cluster.result.R	Fri Mar 01 10:17:24 2013 -0500
+++ b/cluster.tools/heatmap.from.cluster.result.R	Fri Mar 01 19:51:25 2013 -0500
@@ -46,7 +46,7 @@
                    "survival.fname",      "S", 2, "character",
                    "survival.image",      "I", 2, "character",
                    "survival.mode",       "M", 2, "character",
-                   "title",               "T", 2, "character"
+                   "survival.title",      "T", 2, "character"
                    ),
                 nc=4,
                 byrow=TRUE
@@ -332,6 +332,8 @@
   cmd.string <- paste( cmd.string, "-C", opt$dataset )
   cmd.string <- paste( cmd.string, "-S", opt$survival.fname )
   cmd.string <- paste( cmd.string, "-M", opt$survival.mode )
+  if ( ! is.null( opt$suvival.title ) )
+    cmd.string <- paste( cmd.string, "-T", opt$suvival.title )
 
   ##  only call kms if we're the image is png
   if ( opt$image.format=="png" ) {