Mercurial > repos > greg > ks_distribution

changeset 50:0b3d12ecce28 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:28:27 -0400
parents 3a30d1b983b3
children 1a3973eea61c
files ks_distribution.R
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/ks_distribution.R	Mon Jun 26 14:22:08 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:28:27 2017 -0400
@@ -22,12 +22,8 @@
         specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
     } else {
         # Handle selected colors for components.
-        specified_colors <- c()
         colors <- as.character(colors)
-        items <- strsplit(colors, ",")
-        for (item in items) {
-            specified_colors <- c(specified_colors, item)
-        }
+        specified_colors <- strsplit(colors, ",")
         num_colors_specified <- length(specified_colors)
         if (num_colors_specified < number_comp) {
             for (i in num_colors_specified:number_comp) {