view histogram.r @ 11:0027889f6a6e draft

Uploaded
author guerler
date Tue, 01 Apr 2014 14:01:52 -0400
parents 001c5e3e5517
children 39ee947b4a9e
line wrap: on
line source

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)#, breaks=seq(by=options$bin_size))

        # collect vectors in list
        l <- append(l, list(hist_data$breaks[2: length(hist_data$breaks)]))
        l <- append(l, list(hist_data$density))
    }

    # return
    return (l)
}