equivalence_test() for model_parameters

NAMESPACE

@@ -145,6 +145,7 @@ S3method(equivalence_test,lm)
 S3method(equivalence_test,lme)
 S3method(equivalence_test,merMod)
 S3method(equivalence_test,mixed)
+S3method(equivalence_test,parameters_model)
 S3method(equivalence_test,parameters_simulate_model)
 S3method(equivalence_test,rma)
 S3method(equivalence_test,wbm)

NEWS.md

@@ -16,6 +16,9 @@
   `vcov` and `vcov_args` to `p_value()` and `ci()`, hence, tests can be based
   on robust standard errors.
 
+* `equivalence_test()` and `p_significance()` work with objects returned by
+  `model_parameters()`.
+
 * Revision / enhancement of some documentation.
 
 # parameters 0.22.2

R/equivalence_test.R

@@ -380,6 +380,18 @@ equivalence_test.parameters_simulate_model <- function(x,
 }
 
 
+#' @export
+equivalence_test.parameters_model <- function(x,
+                                              range = "default",
+                                              ci = 0.95,
+                                              rule = "classic",
+                                              verbose = TRUE,
+                                              ...) {
+  model <- .get_object(x)
+  equivalence_test(x = model, range = range, ci = ci, rule = rule, verbose = verbose, ...)
+}
+
+
 #' @rdname equivalence_test.lm
 #' @export
 equivalence_test.ggeffects <- function(x,