equi_test, extract_params

easystats · Jul 23, 2024 · 9e6eed1 · 9e6eed1
1 parent c2d07e6
commit 9e6eed1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 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 <- 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
@@ -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
       )
     }