Mercurial > repos > iuc > charts

comparison boxplot.r @ 1:344ac3ca7557 draft default tip

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 4494db13b69987fbc97d47177d2a5956e46e927b"
author iuc
date Wed, 17 Nov 2021 09:06:59 +0000
parents a87a3773d8ed
children
comparison
equal deleted inserted replaced
0:a87a3773d8ed 1:344ac3ca7557
6 # loop through all columns 6 # loop through all columns
7 for (key in names(columns)) { 7 for (key in names(columns)) {
8 # load column data 8 # load column data
9 column <- as.numeric(columns[key]) 9 column <- as.numeric(columns[key])
10 column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]]))) 10 column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
11 11
12 # create hist data 12 # create hist data
13 data <- boxplot(column_data, plot=FALSE) 13 data <- boxplot(column_data, plot = FALSE)
14 14
15 # collect vectors in list 15 # collect vectors in list
16 l <- append(l, list(data$stats)) 16 l <- append(l, list(data$stats))
17 } 17 }
18 18
19 # return 19 # return
20 return (l) 20 return(l)
21 } 21 }