From 86d62e781353d482c0919bcef04fb726444b59d3 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 23 Jul 2024 15:22:59 +0200
Subject: [PATCH] fix

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

diff --git a/R/equivalence_test.R b/R/equivalence_test.R
index 754dbdb42..0fab558d0 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 <- insight::get_df(x = model, type = "residual")
+      dof <- insight::get_df(x = model, type = "wald")
 
       # mu
       params$mu <- params$Estimate * -1
diff --git a/R/extract_parameters.R b/R/extract_parameters.R
index 05fb66751..75872772d 100644
--- a/R/extract_parameters.R
+++ b/R/extract_parameters.R
@@ -186,7 +186,7 @@
   # ==== degrees of freedom
 
   if (is.null(ci_method)) {
-    df_error <- insight::get_df(x = model, type = "residual", verbose = FALSE)
+    df_error <- insight::get_df(x = model, type = "wald", verbose = FALSE)
   } else {
     df_error <- insight::get_df(x = model, type = ci_method, verbose = FALSE)
   }
@@ -565,7 +565,7 @@
     if (!ci_method %in% special_ci_methods) {
       df_error <- data.frame(
         Parameter = parameters$Parameter,
-        df_error = insight::get_df(x = model, type = "residual"),
+        df_error = insight::get_df(x = model, type = "wald"),
         stringsAsFactors = FALSE
       )
     }