Mercurial > repos > guerler > chartskit
annotate boxplot.r @ 34:0197da753d1e draft default tip
Uploaded
| author | guerler |
|---|---|
| date | Mon, 07 Apr 2014 19:50:38 -0400 |
| parents | 533b6c8f8584 |
| children |
| rev | line source |
|---|---|
| 30 | 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 } |