close easystats/insight#415

easystats · Nov 8, 2021 · 7253d35 · 7253d35
1 parent 7d1f423
commit 7253d35
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/methods_brms.R b/R/methods_brms.R
@@ -69,7 +69,7 @@ model_parameters.brmsfit <- function(model,
     )
 
     if (!(effects == "fixed" && component == "conditional")) {
-      random_effect_levels <- which(params$Effects %in% "random" & grepl("^(?!sd_|cor_)(.*)", params$Parameter, perl = TRUE))
+      random_effect_levels <- which(params$Effects == "random" & grepl("^(?!sd_|cor_)(.*)", params$Parameter, perl = TRUE) & !(params$Parameter %in% c("car", "sdcar")))
       if (length(random_effect_levels) && isFALSE(group_level)) params <- params[-random_effect_levels, ]
     }