view boxplot.r @ 22:f1c9378592be draft

Uploaded
author guerler
date Fri, 25 Apr 2014 20:08:26 -0400
parents a3b34c760a79
children e10dbc437d8f
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
        data <- boxplot(column_data, plot=FALSE)
        
        # collect vectors in list
        l <- append(l, list(data$stats))
    }
    
    # return
    return (l)
}