marginaleffects::marginal_means deprecation

easystats · Feb 5, 2024 · 3e666dc · 3e666dc
1 parent 9e2bb40
commit 3e666dc
Show file tree

Hide file tree

Showing 7 changed files with 4 additions and 134 deletions.
diff --git a/DESCRIPTION b/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)

diff --git a/R/estimate_means.R b/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 @@ estimate_means <- function(model,
                            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
@@ -72,11 +70,7 @@ estimate_means <- function(model,
     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))

diff --git a/R/get_marginalcontrasts.R b/R/get_marginalcontrasts.R
diff --git a/R/get_marginalmeans.R b/R/get_marginalmeans.R
diff --git a/man/estimate_means.Rd b/man/estimate_means.Rd
diff --git a/man/modelbased-package.Rd b/man/modelbased-package.Rd
diff --git a/tests/testthat/test-get_marginalmeans.R b/tests/testthat/test-get_marginalmeans.R