diff --git a/R/contingency-table.R b/R/contingency-table.R index 8e787d7c..0f6763b4 100644 --- a/R/contingency-table.R +++ b/R/contingency-table.R @@ -108,7 +108,7 @@ contingency_table <- function( fixedMargin = fixed.margin, priorConcentration = prior.concentration ) %>% - tidy_model_parameters(ci = conf.level, effectsize_type = "cramers_v", alternative = alternative) + tidy_model_parameters(ci = conf.level, es_type = "cramers_v", alternative = alternative) } if (type == "bayes" && test == "1way") { diff --git a/tests/testthat/test-tidy-model-expressions.R b/tests/testthat/test-tidy-model-expressions.R index 8bbdf010..8c169c62 100644 --- a/tests/testthat/test-tidy-model-expressions.R +++ b/tests/testthat/test-tidy-model-expressions.R @@ -83,7 +83,7 @@ test_that("tidy_model_expressions works - F", { df1 <- tidy_model_expressions( tidy_model_parameters( mod_f, - effectsize_type = "omega", + es_type = "omega", table_wide = TRUE ), statistic = "f" @@ -96,7 +96,7 @@ test_that("tidy_model_expressions works - F", { df2 <- tidy_model_expressions( tidy_model_parameters( mod_f, - effectsize_type = "eta", + es_type = "eta", table_wide = TRUE ), statistic = "f",