fix

Author: strengejacke

DESCRIPTION

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

R/equivalence_test.R

@@ -430,7 +430,9 @@ equivalence_test.estimate_means <- function(
 
   # ==== (adjusted) p-values for tests ====
 
-  out$p <- .add_p_to_equitest(x, ci, range, vcov = vcov, vcov_args = vcov_args, ...)
+  if (!inherits(x, "estimate_means")) {
+    out$p <- .add_p_to_equitest(x, ci, range, vcov = vcov, vcov_args = vcov_args, ...)
+  }
 
   attr(out, "rope") <- range
   attr(out, "object_name") <- insight::safe_deparse_symbol(substitute(x))