# HG changeset patch
# User greg
# Date 1498493118 14400
# Node ID 17ca41359a2df22f1fceed8ba74b0ee3b5a85591
# Parent  15478b43d94d1943111f109c6da5fa2acf1963a2
Uploaded

diff -r 15478b43d94d -r 17ca41359a2d ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 12:05:10 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 12:05:18 2017 -0400
@@ -37,23 +37,23 @@
         {
             for (i in num_colors_specified:number_comp)
             {
-                if (!any(specified_colors=='red'))
+                if (!any(specified_colors == 'red'))
                 {
                     specified_colors <- c(specified_colors, 'red')
                 }
-                else if (!any(specified_colors=='yellow'))
+                else if (!any(specified_colors == 'yellow'))
                 {
                     specified_colors <- c(specified_colors, 'yellow')
                 }
-                else if (!any(specified_colors=='green'))
+                else if (!any(specified_colors == 'green'))
                 {
                     specified_colors <- c(specified_colors, 'green')
                 }
-                else if (!any(specified_colors=='black'))
+                else if (!any(specified_colors == 'black'))
                 {
                     specified_colors <- c(specified_colors, 'black')
                 }
-                else if (!any(specified_colors=='blue'))
+                else if (!any(specified_colors == 'blue'))
                 {
                     specified_colors <- c(specified_colors, 'blue')
                 }