Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 53:b3333795c1f9 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:45:52 -0400
parents 53bc81f3ebad
children 139e726dcb95
comparison
equal deleted inserted replaced
52:53bc81f3ebad 53:b3333795c1f9
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, as.character(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) {
34 if (!('red' %in% names(component_colors))) { 34 if (!('red' %in% names(component_colors))) {