Fix location of samples

mrc-ide · Nov 5, 2024 · f381b89 · f381b89
1 parent 64e7c98
commit f381b89
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sample.R b/R/sample.R
@@ -260,7 +260,7 @@ initial_parameters <- function(initial, model, rng, call = NULL) {
     ## Heuristic here; sample from the last 5% of the chain or 20
     ## points, whichever is smaller - hopefully a reasonable
     ## heuristic.  Then sample
-    pars <- tail_and_pool(samples$pars, 0.05, 20)
+    pars <- tail_and_pool(initial$pars, 0.05, 20)
     if (nrow(pars) != n_pars) {
       cli::cli_abort(
         c(paste("Unexpected parameter length in 'monty_samples' object",