update namespace

Author: strengejacke

NAMESPACE

@@ -277,7 +277,6 @@ S3method(model_parameters,lqm)
 S3method(model_parameters,lqmm)
 S3method(model_parameters,maov)
 S3method(model_parameters,marginaleffects)
-S3method(model_parameters,marginalmeans)
 S3method(model_parameters,margins)
 S3method(model_parameters,maxLik)
 S3method(model_parameters,maxim)

R/methods_marginaleffects.R

@@ -48,9 +48,7 @@ model_parameters.marginaleffects <- function(model,
   # do not print or report these columns
   out <- out[, !colnames(out) %in% c("predicted_lo", "predicted_hi"), drop = FALSE]
 
-  if (inherits(model, "marginalmeans")) {
-    attr(out, "coefficient_name") <- "Marginal Means"
-  } else if (inherits(model, "comparisons")) {
+  if (inherits(model, "comparisons")) {
     attr(out, "coefficient_name") <- "Estimate"
     attr(out, "title") <- "Contrasts between Adjusted Predictions"
     if ("Type" %in% colnames(out)) {
@@ -88,10 +86,6 @@ model_parameters.marginaleffects <- function(model,
 model_parameters.comparisons <- model_parameters.marginaleffects
 
 
-#' @export
-model_parameters.marginalmeans <- model_parameters.marginaleffects
-
-
 #' @export
 model_parameters.hypotheses <- model_parameters.marginaleffects