comparison ks_distribution.R @ 27:23c0f5c519ac draft

Uploaded

26:da8615a486fe

        items <- strsplit(cStr, ",")
        for (item in items) {
            color <- c(color, item)
        }
        num_colors_specified = length(color)
        if (num_colors_specified < number_comp):
        {
            for (i in num_colors_specified:number_comp)
            {
                if !(any(color=='red'))
                {
                    color <- c(color, 'red')
                }
                else if !(any(color=='yellow'))
                {
                    color <- c(color, 'yellow')
                }
                else if !(any(color=='green'))
                {
                    color <- c(color, 'green')
                }
                else if !(any(color=='black'))
                {
                    color <- c(color, 'black')
                }
                else if !(any(color=='blue'))
                {
                    color <- c(color, 'blue')
                }
                else
                {

27:23c0f5c519ac

        items <- strsplit(cStr, ",")
        for (item in items) {
            color <- c(color, item)
        }
        num_colors_specified = length(color)
        if (num_colors_specified < number_comp)
        {
            for (i in num_colors_specified:number_comp)
            {
                if (!any(color=='red'))
                {
                    color <- c(color, 'red')
                }
                else if (!any(color=='yellow'))
                {
                    color <- c(color, 'yellow')
                }
                else if (!any(color=='green'))
                {
                    color <- c(color, 'green')
                }
                else if (!any(color=='black'))
                {
                    color <- c(color, 'black')
                }
                else if (!any(color=='blue'))
                {
                    color <- c(color, 'blue')
                }
                else
                {