Mercurial > repos > greg > ks_distribution
comparison ks_distribution.R @ 45:f8b303b9f455 draft
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) |