comparison ks_distribution.R @ 46:399cd9dd2c3e draft

Uploaded

45:f8b303b9f455

            specified_colors <- c(specified_colors, item)
        }
        num_colors_specified <- length(specified_colors)
        if (num_colors_specified < number_comp) {
            for (i in num_colors_specified:number_comp) {
                if (!any(specified_colors == 'red')) {
                    specified_colors <- c(specified_colors, 'red')
                } else if (!any(specified_colors == 'yellow')) {
                    specified_colors <- c(specified_colors, 'yellow')
                } else if (!any(specified_colors == 'green')) {
                    specified_colors <- c(specified_colors, 'green')
                } else if (!any(specified_colors == 'black')) {
                    specified_colors <- c(specified_colors, 'black')
                } else if (!any(specified_colors == 'blue')) {
                    specified_colors <- c(specified_colors, 'blue')
                } else {
                    specified_colors <- c(specified_colors, 'darkorange')
                }
            }

46:399cd9dd2c3e

            specified_colors <- c(specified_colors, item)
        }
        num_colors_specified <- length(specified_colors)
        if (num_colors_specified < number_comp) {
            for (i in num_colors_specified:number_comp) {
                if (!grep('red', specified_colors)) {
                    specified_colors <- c(specified_colors, 'red')
                } else if (!grep('yellow', specified_colors)) {
                    specified_colors <- c(specified_colors, 'yellow')
                } else if (!grep('green', specified_colors)) {
                    specified_colors <- c(specified_colors, 'green')
                } else if (!grep('black', specified_colors)) {
                    specified_colors <- c(specified_colors, 'black')
                } else if (!grep('blue', specified_colors)) {
                    specified_colors <- c(specified_colors, 'blue')
                } else {
                    specified_colors <- c(specified_colors, 'darkorange')
                }
            }