Mercurial > repos > greg > ks_distribution

changeset 55:1659cbe0d5c3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 26 Jun 2017 14:50:59 -0400
parents 139e726dcb95
children d79951635f5d
files ks_distribution.R
diffstat 1 files changed, 18 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/ks_distribution.R	Mon Jun 26 14:48:38 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:50:59 2017 -0400
@@ -28,24 +28,24 @@
         for (item in items) {
             component_colors <- c(component_colors, item)
         }
-        num_colors_specified <- length(component_colors)
-        if (num_colors_specified < number_comp) {
-            for (i in num_colors_specified:number_comp) {
-                if (!('red' %in% names(component_colors))) {
-                    component_colors <- c(component_colors, 'red')
-                } else if (!('yellow' %in% names(component_colors))) {
-                    component_colors <- c(component_colors, 'yellow')
-                } else if (!('green' %in% names(component_colors))) {
-                    component_colors <- c(component_colors, 'green')
-                } else if (!('black' %in% names(component_colors))) {
-                    component_colors <- c(component_colors, 'black')
-                } else if (!('blue' %in% names(component_colors))) {
-                    component_colors <- c(component_colors, 'blue')
-                } else {
-                    component_colors <- c(component_colors, 'darkorange')
-                }
-            }
-        }
+        #num_colors_specified <- length(component_colors)
+        #if (num_colors_specified < number_comp) {
+        #    for (i in num_colors_specified:number_comp) {
+        #        if (!('red' %in% names(component_colors))) {
+        #            component_colors <- c(component_colors, 'red')
+        #        } else if (!('yellow' %in% names(component_colors))) {
+        #            component_colors <- c(component_colors, 'yellow')
+        #        } else if (!('green' %in% names(component_colors))) {
+        #            component_colors <- c(component_colors, 'green')
+        #        } else if (!('black' %in% names(component_colors))) {
+        #            component_colors <- c(component_colors, 'black')
+        #        } else if (!('blue' %in% names(component_colors))) {
+        #            component_colors <- c(component_colors, 'blue')
+        #        } else {
+        #            component_colors <- c(component_colors, 'darkorange')
+        #        }
+        #    }
+        #}
     }
     return(component_colors)
 }