Mercurial > repos > greg > kaks_analysis_barplot
comparison kaks_analysis_barplot.R @ 2:b4f599423810 draft
Uploaded
| author | greg |
|---|---|
| date | Wed, 08 Mar 2017 09:08:50 -0500 |
| parents | 844acb833219 |
| children | 9ec2b94ff094 |
comparison
equal
deleted
inserted
replaced
| 1:30430f2758fe | 2:b4f599423810 |
|---|---|
| 1 #!/usr/bin/env Rscript | 1 #!/usr/bin/env Rscript |
| 2 | 2 |
| 3 suppressPackageStartupMessages(library("optparse")) | 3 suppressPackageStartupMessages(library("optparse")) |
| 4 | 4 |
| 5 option_list <- list( | 5 option_list <- list( |
| 6 make_option(c("-c", "--components"), action="store", dest="components", help="Ks significant components input dataset"), | 6 make_option(c("-c", "--components", action="store", dest="components", help="Ks significant components input dataset"), |
| 7 make_option(c("-o", "--output"), action="store", dest="output", default=NULL, help="Output dataset"), | 7 make_option(c("-o", "--output", action="store", dest="output", default=NULL, help="Output dataset"), |
| 8 ) | 8 ) |
| 9 | 9 |
| 10 parser <- OptionParser(usage="%prog [options] file", option_list=option_list) | 10 parser <- OptionParser(usage="%prog [options] file", option_list=option_list) |
| 11 args <- parse_args(parser, positional_arguments=TRUE) | 11 args <- parse_args(parser, positional_arguments=TRUE) |
| 12 opt <- args$options | 12 opt <- args$options |
