fix

easystats · Jul 23, 2024 · 86d62e7 · 86d62e7
1 parent 0e4c87f
commit 86d62e7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
       )
     }