Mercurial > repos > guerler > charts

comparison histogram.r @ 50:12eb81b00cd9 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author guerler
date Thu, 05 Jun 2014 13:36:23 -0400
parents b84a193361be
children
comparison
equal deleted inserted replaced
49:19dc8d7aa87b 50:12eb81b00cd9
7 # loop through all columns 7 # loop through all columns
8 m <- list() 8 m <- list()
9 for (key in names(columns)) { 9 for (key in names(columns)) {
10 # load column data 10 # load column data
11 column <- as.numeric(columns[key]) 11 column <- as.numeric(columns[key])
12 column_data <- sapply( table[column], as.numeric ) 12 column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
13 13
14 # collect vectors in list 14 # collect vectors in list
15 m <- append(m, list(column_data)) 15 m <- append(m, list(column_data))
16 } 16 }
17 17
18 # identify optimal breaks 18 # identify optimal breaks