changing default parameters

TheUpshot · Apr 22, 2014 · 30e1af9 · 30e1af9
1 parent b083771
commit 30e1af9
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/master-public.R b/master-public.R
@@ -1,14 +1,13 @@
-
 workingDir  <-  getwd()
 dataDir     <-  paste(workingDir, "data-publisher/", sep = "/")
 modelDir    <-  paste(workingDir, "model", sep = "/")
 fundyDir    <-  paste(workingDir, "fundamentals", sep = "/")
 
 ### run the model
 setwd(modelDir)
-n.days <- 3      # number of days to sim. set to "all" to run all days. 
-just.today <- F  # if T, overrides n.days
-n.sims <- 250000
+n.days <- 30      # number of days to sim. set to "all" to run all days. 
+just.today <- T   # if T, overrides n.days
+n.sims <- 50000
 source("senate-model-2014.R")
 
 if (just.today) source("combine-data.R")