comparison boxplot.r @ 30:533b6c8f8584 draft

Uploaded
author guerler
date Mon, 07 Apr 2014 19:23:42 -0400
parents
children
comparison
equal deleted inserted replaced
29:726effc0bcbd 30:533b6c8f8584
1 wrapper <- function(table, columns, options) {
2
3 # initialize output list
4 l <- list()
5
6 # loop through all columns
7 for (key in names(columns)) {
8 # load column data
9 column <- as.numeric(columns[key])
10 column_data <- sapply( table[column], as.numeric )
11
12 # create hist data
13 data <- boxplot(column_data, plot=FALSE)
14
15 # collect vectors in list
16 l <- append(l, list(data$stats))
17 }
18
19 # return
20 return (l)
21 }