marginaleffects::marginal_means deprecation

DESCRIPTION

@@ -68,7 +68,7 @@ VignetteBuilder:
     knitr
 Encoding: UTF-8
 Language: en-US
-RoxygenNote: 7.2.3.9000
+RoxygenNote: 7.3.0
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 Roxygen: list(markdown = TRUE)

R/estimate_means.R

@@ -7,8 +7,6 @@
 #'
 #' @inheritParams get_emmeans
 #' @inheritParams parameters::model_parameters.default
-#' @param backend Whether to use 'emmeans' or 'marginaleffects' as a backend.
-#'  The latter is experimental and some features might not work.
 #' @inherit estimate_slopes details
 #'
 #' @examplesIf require("emmeans", quietly = TRUE)
@@ -51,10 +49,10 @@
                            fixed = NULL,
                            transform = "response",
                            ci = 0.95,
-                           backend = "emmeans",
+                          #  backend = "emmeans",
                            ...) {
   # Compute means
-  if (backend == "emmeans") {
+  # if (backend == "emmeans") {
     estimated <- get_emmeans(model, at, fixed, transform = transform, ...)
 
     # Summarize and clean
@@ -62,7 +60,7 @@
       means <- parameters::parameters(estimated, ci = ci, ...)
       means <- .clean_names_bayesian(means, model, transform, type = "mean")
       means <- cbind(estimated@grid, means)
       means$`.wgt.` <- NULL # Drop the weight column
     } else {
       means <- as.data.frame(stats::confint(estimated, level = ci))
       means$df <- NULL
@@ -72,11 +70,7 @@
     means <- means[names(means) != "1"]
 
     info <- attributes(estimated)
-  } else {
-    means <- .get_marginalmeans(model, at, fixed, transform = transform, ...)
-
-    info <- attributes(means)
-  }
+  # }
 
   # Restore factor levels
   means <- datawizard::data_restoretype(means, insight::get_data(model))