comparison ks_distribution.R @ 28:9b6252925ccf draft

Uploaded

27:23c0f5c519ac

    return(fx)
}

# Handle colors for components.
if (is.na(opt$colors))
 {
    # Randomly specify colors for components.
    specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
}
else
{
    # Handle selected colors for components.
    parser <- newJSONParser()
    parser$addData(opt$colors)
    raw_colors <- parser$getObject()
    specified_colors <- c()
    for (raw_color in raw_colors) {
        specified_colors <- c(specified_colors, raw_color)
}

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

28:9b6252925ccf

    return(fx)
}

# Handle colors for components.
if (is.na(opt$colors))
{
    # Randomly specify colors for components.
    specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
}
else
{
    # Handle selected colors for components.
    parser <- newJSONParser()
    parser$addData(opt$colors)
    raw_colors <- parser$getObject()
    specified_colors <- c()
    for (raw_color in raw_colors)
    {
        specified_colors <- c(specified_colors, raw_color)
    }
}

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