- typo correction in bootstrapping function

Boehringer-Ingelheim · Oct 13, 2023 · f5f4913 · f5f4913
1 parent 89fd571
commit f5f4913
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/bootstrapping.R b/R/bootstrapping.R
@@ -9,16 +9,18 @@
 #' @return tbd
 #' @export
 getBootsrapBands <- function (
+
   model_fits,
   n_samples = 1e3,
   alpha     = c(0.05, 0.5),
   avg_fit   = TRUE,
   dose_seq  = NULL
 
 ) {
+
   mu_hat_samples <- sapply(attr(model_fits, "posterior"),
                            RBesT::rmix, n = n_samples)
-  sd_hat         <- summary.postList(model_fits)[, 2]
+  sd_hat         <- summary.postList(attr(model_fits, "posterior"))[, 2]
 
   dose_levels    <- model_fits[[1]]$dose_levels
   model_names    <- names(model_fits)