diff --git a/R/ard_effectsize_cohens_d.R b/R/ard_effectsize_cohens_d.R index 91f5441a1..1babbd898 100644 --- 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 index 58b228b5d..d130b7b4f 100644 --- 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, ...