Mercurial > repos > iuc > charts

comparison boxplot.r @ 0:b457cf9d24d7 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/charts/ commit 87080d49913cfd40a77eda7e5834ac9c4bc30b0b
author iuc
date Fri, 09 Mar 2018 08:22:50 -0500
parents
children bfaa7f89c98d
comparison
equal deleted inserted replaced
-1:000000000000 0:b457cf9d24d7
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 <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
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 }