Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 49:3a30d1b983b3 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:22:08 -0400
parents 5c48e4c497f4
children 0b3d12ecce28
comparison
equal deleted inserted replaced
48:5c48e4c497f4 49:3a30d1b983b3
31 num_colors_specified <- length(specified_colors) 31 num_colors_specified <- length(specified_colors)
32 if (num_colors_specified < number_comp) { 32 if (num_colors_specified < number_comp) {
33 for (i in num_colors_specified:number_comp) { 33 for (i in num_colors_specified:number_comp) {
34 if (!('red' %in% names(specified_colors))) { 34 if (!('red' %in% names(specified_colors))) {
35 specified_colors <- c(specified_colors, 'red') 35 specified_colors <- c(specified_colors, 'red')
36 } else if ((!('yellow' %in% names(specified_colors))) { 36 } else if (!('yellow' %in% names(specified_colors))) {
37 specified_colors <- c(specified_colors, 'yellow') 37 specified_colors <- c(specified_colors, 'yellow')
38 } else if (!('green' %in% names(specified_colors))) { 38 } else if (!('green' %in% names(specified_colors))) {
39 specified_colors <- c(specified_colors, 'green') 39 specified_colors <- c(specified_colors, 'green')
40 } else if (!('black' %in% names(specified_colors))) { 40 } else if (!('black' %in% names(specified_colors))) {
41 specified_colors <- c(specified_colors, 'black') 41 specified_colors <- c(specified_colors, 'black')