Mercurial > repos > guerler > chartskit
view boxplot.r @ 33:39ee947b4a9e draft
Uploaded
author | guerler |
---|---|
date | Mon, 07 Apr 2014 19:24:19 -0400 |
parents | 533b6c8f8584 |
children |
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) }