Mercurial > repos > guerler > charts
view boxplot.r @ 52:e10dbc437d8f draft
Uploaded
author | guerler |
---|---|
date | Thu, 05 Jun 2014 13:37:37 -0400 |
parents | a3b34c760a79 |
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 <- suppressWarnings(as.numeric(as.character(table[column][[1]]))) # create hist data data <- boxplot(column_data, plot=FALSE) # collect vectors in list l <- append(l, list(data$stats)) } # return return (l) }