From 9e6eed19fa6277c5e1edacb3779e6d740a849a8e Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 23 Jul 2024 14:31:34 +0200
Subject: [PATCH] equi_test, extract_params

---
 R/equivalence_test.R   | 2 +-
 R/extract_parameters.R | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/equivalence_test.R b/R/equivalence_test.R
index e0e368709..754dbdb42 100644
--- a/R/equivalence_test.R
+++ b/R/equivalence_test.R
@@ -674,7 +674,7 @@ equivalence_test.ggeffects <- function(x,
       params <- insight::get_parameters(model)
 
       # degrees of freedom
-      dof <- degrees_of_freedom(model, method = "any")
+      dof <- insight::get_df(x = model, type = "residual")
 
       # mu
       params$mu <- params$Estimate * -1
diff --git a/R/extract_parameters.R b/R/extract_parameters.R
index 34e6e1305..05fb66751 100644
--- a/R/extract_parameters.R
+++ b/R/extract_parameters.R
@@ -186,9 +186,9 @@
   # ==== degrees of freedom
 
   if (is.null(ci_method)) {
-    df_error <- degrees_of_freedom(model, method = "any", verbose = FALSE)
+    df_error <- insight::get_df(x = model, type = "residual", verbose = FALSE)
   } else {
-    df_error <- degrees_of_freedom(model, method = ci_method, verbose = FALSE)
+    df_error <- insight::get_df(x = model, type = ci_method, verbose = FALSE)
   }
   if (!is.null(df_error) && (length(df_error) == 1 || length(df_error) == nrow(parameters))) {
     if (length(df_error) == 1) {
@@ -565,7 +565,7 @@
     if (!ci_method %in% special_ci_methods) {
       df_error <- data.frame(
         Parameter = parameters$Parameter,
-        df_error = degrees_of_freedom(model, method = "any"),
+        df_error = insight::get_df(x = model, type = "residual"),
         stringsAsFactors = FALSE
       )
     }