# HG changeset patch
# User greg
# Date 1498493632 14400
# Node ID 5074cb26597ac5cca023107a02b5496dc73d5a96
# Parent  60e2cf57f2c15356cd013ac7a31c3eb897f9157f
Uploaded

diff -r 60e2cf57f2c1 -r 5074cb26597a ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 12:10:21 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 12:13:52 2017 -0400
@@ -26,8 +26,7 @@
     {
         # Handle selected colors for components.
         specified_colors <- c()
-        cStr <- unlist(colors)
-        items <- strsplit(cStr, ",")
+        items <- strsplit(colors, ",")
         for (item in items)
         {
             specified_colors <- c(specified_colors, item)