more stavle

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.28.0.3
+Version: 0.28.0.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -1,3 +1,9 @@
+# parameters (devel)
+
+## Changes
+
+*
+
 # parameters 0.28.0
 
 ## Breaking Changes

R/methods_marginaleffects.R

@@ -107,21 +107,22 @@ model_parameters.predictions <- function(model,
                                          verbose = TRUE,
                                          ...) {
   insight::check_if_installed("marginaleffects")
+  is_bayes <- !is.null(suppressWarnings(marginaleffects::get_draws(model, "PxD")))
 
-  if (is.null(attributes(model)$posterior_draws)) {
-    # handle non-Bayesian models
-    out <- .rename_reserved_marginaleffects(model)
-    out <- datawizard::data_rename(out, "estimate", "predicted")
-    out <- datawizard::data_relocate(out, "predicted", before = 1)
-    out <- insight::standardize_names(out, style = "easystats")
-  } else {
+  if (is_bayes) {
     # Bayesian
     out <- suppressWarnings(bayestestR::describe_posterior(
       model,
       ci = ci,
       verbose = verbose,
       ...
     ))
+  } else {
+    # handle non-Bayesian models
+    out <- .rename_reserved_marginaleffects(model)
+    out <- datawizard::data_rename(out, "estimate", "predicted")
+    out <- datawizard::data_relocate(out, "predicted", before = 1)
+    out <- insight::standardize_names(out, style = "easystats")
   }
 
   out <- insight::standardize_column_order(out, style = "easystats")