Adding method to effectsize pkg ard functions

insightsengineering · May 6, 2024 · 58e3a1e · 58e3a1e
1 parent 1a4e5c1
commit 58e3a1e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/ard_effectsize_cohens_d.R b/R/ard_effectsize_cohens_d.R
@@ -78,7 +78,8 @@ ard_effectsize_cohens_d <- function(data, by, variables, conf.level = 0.95, ...)
         lst_tidy =
           cards::eval_capture_conditions(
             effectsize::cohens_d(data[[variable]] ~ data[[by]], data = data, paired = FALSE, ci = conf.level, ...) |>
-              parameters::standardize_names(style = "broom")
+              parameters::standardize_names(style = "broom") |>
+              dplyr::mutate(method = "Cohen's D")
           ),
         paired = FALSE,
         ...
@@ -127,7 +128,8 @@ ard_effectsize_paired_cohens_d <- function(data, by, variables, id, conf.level =
             data_wide <- .paired_data_pivot_wider(data, by = by, variable = variable, id = id)
             # perform paired cohen's d test
             effectsize::cohens_d(x = data_wide[["by1"]], y = data_wide[["by2"]], paired = TRUE, ci = conf.level, ...) |>
-              parameters::standardize_names(style = "broom")
+              parameters::standardize_names(style = "broom") |>
+              dplyr::mutate(method = "Paired Cohen's D")
           }),
         paired = TRUE,
         ...

diff --git a/R/ard_effectsize_hedges_g.R b/R/ard_effectsize_hedges_g.R
@@ -84,7 +84,8 @@ ard_effectsize_hedges_g <- function(data, by, variables, conf.level = 0.95, ...)
               package = "effectsize",
               code = hedges_g(data[[variable]] ~ data[[by]], paired = FALSE, ci = conf.level, ...)
             ) |>
-              parameters::standardize_names(style = "broom")
+              parameters::standardize_names(style = "broom") |>
+              dplyr::mutate(method = "Hedge's G")
           ),
         paired = FALSE,
         ...
@@ -135,7 +136,8 @@ ard_effectsize_paired_hedges_g <- function(data, by, variables, id, conf.level =
               package = "effectsize",
               code = hedges_g(x = data_wide[["by1"]], y = data_wide[["by2"]], paired = TRUE, ci = conf.level, ...)
             ) |>
-              parameters::standardize_names(style = "broom")
+              parameters::standardize_names(style = "broom") |>
+              dplyr::mutate(method = "Paired Hedge's G")
           }),
         paired = TRUE,
         ...