updating documentation, trying to debug params passed

RANDCorporation · Feb 23, 2023 · b2dd613 · b2dd613
1 parent ad52638
commit b2dd613
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 4 deletions.
diff --git a/R/optic-simulation-helper.R b/R/optic-simulation-helper.R
@@ -54,12 +54,13 @@
 #' 
 optic_simulation <- function(x, models, iters,
                              unit_var, time_var, 
-                             effect_magnitude, n_units, 
+                             effect_magnitude, 
+                             n_units, 
                              effect_direction, 
                              policy_speed, 
-                             n_implementation_periods,
                              prior_control,
                              treat_var,
+                             n_implementation_periods,
                              rhos, years_apart, ordered,
                              method,
                              method_sample, method_model, method_results,     
@@ -178,7 +179,7 @@ optic_simulation <- function(x, models, iters,
   stopifnot(is.numeric(n_units))
   stopifnot(all(effect_direction %in% c("null", "neg", "pos")))
   stopifnot(all(policy_speed %in% c("instant", "slow")))
-  #stopifnot(is.numeric(n_implementation_periods))
+  stopifnot(is.numeric(n_implementation_periods))
 
   # Crete list with mandatory parameters
   params <- list(unit_var = unit_var,
@@ -210,6 +211,8 @@ optic_simulation <- function(x, models, iters,
     params$treat_var <- treat_var
   }
 
+  dput(params)
+
   ###
   # create a OpticSim object
   # It is difficult to 

diff --git a/dev/dev_test_concurrent.R b/dev/dev_test_concurrent.R
@@ -1,5 +1,5 @@
 
-#devtools::document()
+devtools::document()
 #devtools::build_manual()
 devtools::load_all()
 

diff --git a/man/optic_simulation.Rd b/man/optic_simulation.Rd