again

pierucci · Jun 20, 2019 · 183cc69 · 183cc69
1 parent eb21221
commit 183cc69
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 8 deletions.
diff --git a/R/states_eval.R b/R/states_eval.R
@@ -22,12 +22,7 @@ eval_state_list <- function(x, parameters) {
     dplyr::mutate_(parameters, .dots = x)[c("markov_cycle",
                                             names(x))]
   }
-  e_starting_values <- unlist(
-    eval_starting_values(
-      x = strategy$starting_values,
-      parameters[1, ])
-  )
-
+
   res <- lapply(x, f)
 
   structure(res,

diff --git a/R/strategy_eval.R b/R/strategy_eval.R
@@ -55,7 +55,7 @@ eval_strategy <- function(strategy, parameters, cycles,
   uneval_transition <- expanded$uneval_transition
   init <- expanded$init
   inflow <- expanded$inflow
-  #starting_values <- expanded$starting_values
+  starting_values <- expanded$starting_values
   n_indiv <- expanded$n_indiv
   parameters <- expanded$parameters
   actually_expanded_something <- expanded$actually_expanded_something

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