# HG changeset patch
# User guerler
# Date 1396913022 14400
# Node ID 533b6c8f8584ec36901baa5c54b9842ccc6ce139
# Parent  726effc0bcbd44aa7e7f0c1b0b49640e1b7569ef
Uploaded

diff -r 726effc0bcbd -r 533b6c8f8584 boxplot.r
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/boxplot.r	Mon Apr 07 19:23:42 2014 -0400
@@ -0,0 +1,21 @@
+wrapper <- function(table, columns, options) {
+
+    # initialize output list
+    l <- list()
+
+    # loop through all columns
+    for (key in names(columns)) {
+        # load column data
+        column <- as.numeric(columns[key])
+        column_data <- sapply( table[column], as.numeric )
+
+        # create hist data
+        data <- boxplot(column_data, plot=FALSE)
+        
+        # collect vectors in list
+        l <- append(l, list(data$stats))
+    }
+    
+    # return
+    return (l)
+}