# HG changeset patch
# User greg
# Date 1498501707 14400
# Node ID 0b3d12ecce2874496e4ff72a9849ef554b3d79dc
# Parent  3a30d1b983b331bae12a026f1ef4f815ac13e5c6
Uploaded

diff -r 3a30d1b983b3 -r 0b3d12ecce28 ks_distribution.R
--- 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) {