comparison ks_distribution.R @ 37:ee4ebdf2935e draft

Uploaded

36:6aeba53e195b

#!/usr/bin/env Rscript

suppressPackageStartupMessages(library("optparse"))
suppressPackageStartupMessages(library("rjson"))

option_list <- list(
    make_option(c("-c", "--components_input"), action="store", dest="components_input", help="Ks significant components input dataset"),
    make_option(c("-k", "--kaks_input"), action="store", dest="kaks_input", help="KaKs analysis input dataset"),
    make_option(c("-n", "--number_comp"), action="store", dest="number_comp", type="integer", help="Number of significant components in the Ks distribution"),

        specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
    }
    else
    {
        # Handle selected colors for components.
        parser <- newJSONParser()
        parser$addData(colors)
        raw_colors <- parser$getObject()
        specified_colors <- c()
        for (raw_color in raw_colors)
        {
            specified_colors <- c(specified_colors, raw_color)
        }
        num_colors_specified = length(specified_colors)
        if (num_colors_specified < number_comp)
        {
            for (i in num_colors_specified:number_comp)

37:ee4ebdf2935e

#!/usr/bin/env Rscript

suppressPackageStartupMessages(library("optparse"))

option_list <- list(
    make_option(c("-c", "--components_input"), action="store", dest="components_input", help="Ks significant components input dataset"),
    make_option(c("-k", "--kaks_input"), action="store", dest="kaks_input", help="KaKs analysis input dataset"),
    make_option(c("-n", "--number_comp"), action="store", dest="number_comp", type="integer", help="Number of significant components in the Ks distribution"),

        specified_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
    }
    else
    {
        # Handle selected colors for components.
        specified_colors <- c()
        cStr <- unlist(colors)
        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)