comparison ks_distribution.R @ 41:17ca41359a2d draft

Uploaded

40:15478b43d94d

        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
                {

41:17ca41359a2d

        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
                {