ensure scalar variable extraction for fixed effects

GidonFrischkorn · Mar 12, 2024 · e6a1672 · e6a1672
1 parent 3e7cda1
commit e6a1672
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/prepare_predictions.R b/R/prepare_predictions.R
@@ -248,7 +248,7 @@ prepare_predictions_fe <- function(bterms, draws, sdata, ...) {
   if (length(fixef)) {
     out$X <- X
     b_pars <- paste0("b", p, "_", fixef)
-    out$b <- prepare_draws(draws, b_pars)
+    out$b <- prepare_draws(draws, b_pars, scalar = TRUE)
   }
   out
 }