comparison ks_distribution.R @ 43:5074cb26597a draft

Uploaded
author greg
date Mon, 26 Jun 2017 12:13:52 -0400
parents 60e2cf57f2c1
children 69ac2edffdde
comparison
equal deleted inserted replaced
42:60e2cf57f2c1 43:5074cb26597a
24 } 24 }
25 else 25 else
26 { 26 {
27 # Handle selected colors for components. 27 # Handle selected colors for components.
28 specified_colors <- c() 28 specified_colors <- c()
29 cStr <- unlist(colors) 29 items <- strsplit(colors, ",")
30 items <- strsplit(cStr, ",")
31 for (item in items) 30 for (item in items)
32 { 31 {
33 specified_colors <- c(specified_colors, item) 32 specified_colors <- c(specified_colors, item)
34 } 33 }
35 num_colors_specified <- length(specified_colors) 34 num_colors_specified <- length(specified_colors)