diff heatmap.r @ 55:680cf68098d5 draft

Uploaded
author guerler
date Thu, 05 Jun 2014 14:23:41 -0400
parents 5a478e171752
children
line wrap: on
line diff
--- a/heatmap.r	Thu Jun 05 13:38:55 2014 -0400
+++ b/heatmap.r	Thu Jun 05 14:23:41 2014 -0400
@@ -11,7 +11,8 @@
 # access a label column
 get_label <- function(table, column_key) {
     column <- as.numeric(column_key)
-    return (c(table[column]))
+    column_data <- as.character(table[column][[1]])
+    return (c(column_data))
 }
 
 # inflate three columns into matrix