Mercurial > repos > greg > ks_distribution
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) |