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 |