Mercurial > repos > greg > bmsb

changeset 13:860730afa679 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Tue, 16 Aug 2016 10:03:49 -0400
parents 7b0c47f9436a
children 5ba47f694b0a
files bmsb.R
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bmsb.R	Tue Aug 16 09:52:25 2016 -0400
+++ b/bmsb.R	Tue Aug 16 10:03:49 2016 -0400
@@ -3,12 +3,17 @@
 #suppressPackageStartupMessages(library("optparse"))
 #suppressPackageStartupMessages(library("rjson"))
 
-option_list <- list(
+options_list <- list(
     make_option(c("-s", "--save_log"), action="store_true", default=FALSE, help="Save R logs"),
     make_option(c("-m", "--output_r_log"), action="store", help="Output dataset for R logs"),
     make_option(c("-o", "--output"), action="store", help="Output dataset")
 )
 
+parser <- OptionParser(usage="%prog [options] file", options_list)
+args <- parse_args(parser, positional_arguments=TRUE)
+opt <- args$options
+
+
 daylength = function(L){
     # from Forsythe 1995
     p = 0.8333