Mercurial > repos > guerler > charts
view boxplot.r @ 50:12eb81b00cd9 draft
Uploaded
author | guerler |
---|---|
date | Thu, 05 Jun 2014 13:36:23 -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) }