Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 54:139e726dcb95 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:48:38 -0400
parents b3333795c1f9
children 1659cbe0d5c3
comparison
equal deleted inserted replaced
53:b3333795c1f9 54:139e726dcb95
23 } else { 23 } else {
24 # Handle selected colors for components. 24 # Handle selected colors for components.
25 component_colors <- c() 25 component_colors <- c()
26 colors <- as.character(colors) 26 colors <- as.character(colors)
27 items <- strsplit(colors, ",") 27 items <- strsplit(colors, ",")
28 for item in items { 28 for (item in items) {
29 component_colors <- c(component_colors, item) 29 component_colors <- c(component_colors, item)
30 } 30 }
31 num_colors_specified <- length(component_colors) 31 num_colors_specified <- length(component_colors)
32 if (num_colors_specified < number_comp) { 32 if (num_colors_specified < number_comp) {
33 for (i in num_colors_specified:number_comp) { 33 for (i in num_colors_specified:number_comp) {