Switch to es_type

easystats/parameters#978
easystats · Jun 19, 2024 · ad36239 · ad36239
1 parent 23a522e
commit ad36239
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: effectsize
 Title: Indices of Effect Size
-Version: 0.8.8.1
+Version: 0.8.8.2
 Authors@R: 
     c(person(given = "Mattan S.",
              family = "Ben-Shachar",
@@ -73,7 +73,7 @@ Depends:
 Imports:
     bayestestR (>= 0.13.2),
     insight (>= 0.19.10),
-    parameters (>= 0.21.6),
+    parameters (>= 0.21.7),
     performance (>= 0.11.0),
     datawizard (>= 0.10.0),
     stats,

diff --git a/R/eta_squared-main.R b/R/eta_squared-main.R
@@ -833,7 +833,7 @@ cohens_f_squared <- function(model,
       include_intercept = include_intercept
     )
 
-  attr(out, "anova_type") <- tryCatch(attr(parameters::model_parameters(model, verbose = FALSE, effects = "fixed", effectsize_type = NULL), "anova_type"),
+  attr(out, "anova_type") <- tryCatch(attr(parameters::model_parameters(model, verbose = FALSE, effects = "fixed", es_type = NULL), "anova_type"),
     error = function(...) 1
   )
   attr(out, "approximate") <- TRUE
@@ -864,7 +864,7 @@ cohens_f_squared <- function(model,
 
   # TODO this should be in .anova_es.anvoa
   # TODO the aoc method should convert to an anova table, then pass to anova
-  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", effectsize_type = NULL)
+  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", es_type = NULL)
   out <- .es_aov_simple(as.data.frame(params),
     type = type,
     partial = partial, generalized = generalized,
@@ -890,7 +890,7 @@ cohens_f_squared <- function(model,
                               verbose = TRUE,
                               include_intercept = FALSE,
                               ...) {
-  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", effectsize_type = NULL)
+  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", es_type = NULL)
   anova_type <- attr(params, "anova_type")
   params <- as.data.frame(params)
 

diff --git a/R/eta_squared-methods.R b/R/eta_squared-methods.R
@@ -255,7 +255,7 @@
                            ci = 0.95, alternative = "greater",
                            verbose = TRUE,
                            ...) {
-  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", effectsize_type = NULL)
+  params <- parameters::model_parameters(model, verbose = verbose, effects = "fixed", es_type = NULL)
   anova_type <- attr(params, "anova_type")
 
   params <- split(params, factor(params$Response, levels = unique(params$Response))) # make sure row order is not changed