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 ) }