Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 45:f8b303b9f455 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 26 Jun 2017 14:03:11 -0400
parents 69ac2edffdde
children 399cd9dd2c3e
comparison
equal deleted inserted replaced
44:69ac2edffdde 45:f8b303b9f455
21 # Randomly specify colors for components. 21 # Randomly specify colors for components.
22 specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange') 22 specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
23 } else { 23 } else {
24 # Handle selected colors for components. 24 # Handle selected colors for components.
25 specified_colors <- c() 25 specified_colors <- c()
26 colors <- as.character(colors)
26 items <- strsplit(colors, ",") 27 items <- strsplit(colors, ",")
27 for (item in items) { 28 for (item in items) {
28 specified_colors <- c(specified_colors, item) 29 specified_colors <- c(specified_colors, item)
29 } 30 }
30 num_colors_specified <- length(specified_colors) 31 num_colors_specified <- length(specified_colors)