# HG changeset patch
# User greg
# Date 1498501328 14400
# Node ID 3a30d1b983b331bae12a026f1ef4f815ac13e5c6
# Parent  5c48e4c497f4041d63ce3b84c009e5e32bf5ebde
Uploaded

diff -r 5c48e4c497f4 -r 3a30d1b983b3 ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 14:20:47 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:22:08 2017 -0400
@@ -33,7 +33,7 @@
             for (i in num_colors_specified:number_comp) {
                 if (!('red' %in% names(specified_colors))) {
                     specified_colors <- c(specified_colors, 'red')
-                } else if ((!('yellow' %in% names(specified_colors))) {
+                } else if (!('yellow' %in% names(specified_colors))) {
                     specified_colors <- c(specified_colors, 'yellow')
                 } else if (!('green' %in% names(specified_colors))) {
                     specified_colors <- c(specified_colors, 'green')