--- 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')
                 }