comparison ks_distribution.R @ 39:686ea47c0ce3 draft

Uploaded

38:68447763ccc2

        items <- strsplit(cStr, ",")
        for (item in items)
        {
            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'))

# Read in the components data.
components_data <- read.delim(opt$components_input, header=TRUE)
number_comp <- opt$number_comp

# Set component colors.
specified_colors = set_component_colors(opt$colors, number_comp)

# Set pi, mu, var.
items <- get_pi_mu_var(components_data, number_comp)
if (number_comp == 1)
{

39:686ea47c0ce3

        items <- strsplit(cStr, ",")
        for (item in items)
        {
            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'))

# Read in the components data.
components_data <- read.delim(opt$components_input, header=TRUE)
number_comp <- opt$number_comp

# Set component colors.
specified_colors <- set_component_colors(opt$colors, number_comp)

# Set pi, mu, var.
items <- get_pi_mu_var(components_data, number_comp)
if (number_comp == 1)
{