# HG changeset patch
# User guerler
# Date 1397747788 14400
# Node ID 8fefbbf372bec40b1504da623863ef1b5020a978

Uploaded

diff -r 000000000000 -r 8fefbbf372be histogram.r
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/histogram.r	Thu Apr 17 11:16:28 2014 -0400
@@ -0,0 +1,32 @@
+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
+        hist_data <- hist(column_data, plot=FALSE)
+        
+        # normalize densities
+        hist_data$counts=hist_data$counts/sum(hist_data$counts)
+
+        # collect vectors in list
+        l <- append(l, list(hist_data$breaks[2: length(hist_data$breaks)]))
+        l <- append(l, list(hist_data$counts))
+    }
+    
+    # make sure length is fine
+    n <- max(sapply(l, length))
+    ll <- lapply(l, function(X) {
+        c(as.character(X), rep("", times = n - length(X)))
+    })
+    l <- do.call(cbind, ll)
+
+    # return
+    return (l)
+}