# HG changeset patch
# User greg
# Date 1498502752 14400
# Node ID b3333795c1f955c035d519c5b4617d87d0e640bb
# Parent  53bc81f3ebad4f5953a117849a82d715cde80dbd
Uploaded

diff -r 53bc81f3ebad -r b3333795c1f9 ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 14:42:41 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:45:52 2017 -0400
@@ -26,7 +26,7 @@
         colors <- as.character(colors)
         items <- strsplit(colors, ",")
         for item in items {
-            component_colors <- c(component_colors, as.character(item))
+            component_colors <- c(component_colors, item)
         }
         num_colors_specified <- length(component_colors)
         if (num_colors_specified < number_comp) {