# HG changeset patch
# User guerler
# Date 1401989783 14400
# Node ID 12eb81b00cd9686664b06d0faff8e677a6bf604e
# Parent  19dc8d7aa87b39e1b4fcc7daee23f712a2a9cb82
Uploaded

diff -r 19dc8d7aa87b -r 12eb81b00cd9 histogram.r
--- a/histogram.r	Thu May 15 15:47:07 2014 -0400
+++ b/histogram.r	Thu Jun 05 13:36:23 2014 -0400
@@ -9,8 +9,8 @@
     for (key in names(columns)) {
         # load column data
         column <- as.numeric(columns[key])
-        column_data <- sapply( table[column], as.numeric )
-
+        column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
+        
         # collect vectors in list
         m <- append(m, list(column_data))
     }