# HG changeset patch
# User greg
# Date 1498485956 14400
# Node ID 23c0f5c519ac3ed482f0dd4d7bdf5a96d30080c9
# Parent  da8615a486fe8e64aaa423537976c692eb111ee6
Uploaded

diff -r da8615a486fe -r 23c0f5c519ac ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 10:00:41 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 10:05:56 2017 -0400
@@ -97,27 +97,27 @@
             color <- c(color, item)
         }
         num_colors_specified = length(color)
-        if (num_colors_specified < number_comp):
+        if (num_colors_specified < number_comp)
         {
             for (i in num_colors_specified:number_comp)
             {
-                if !(any(color=='red'))
+                if (!any(color=='red'))
                 {
                     color <- c(color, 'red')
                 }
-                else if !(any(color=='yellow'))
+                else if (!any(color=='yellow'))
                 {
                     color <- c(color, 'yellow')
                 }
-                else if !(any(color=='green'))
+                else if (!any(color=='green'))
                 {
                     color <- c(color, 'green')
                 }
-                else if !(any(color=='black'))
+                else if (!any(color=='black'))
                 {
                     color <- c(color, 'black')
                 }
-                else if !(any(color=='blue'))
+                else if (!any(color=='blue'))
                 {
                     color <- c(color, 'blue')
                 }