diff --git a/R/eta_squared-main.R b/R/eta_squared-main.R index 0311ce76..3c9ec4a9 100644 --- a/R/eta_squared-main.R +++ b/R/eta_squared-main.R @@ -891,8 +891,8 @@ cohens_f_squared <- function(model, verbose = TRUE, include_intercept = FALSE, ...) { - ## TODO: add back `effects = "fixed"` once the deprecation warning in parameters is removed - params <- parameters::model_parameters(model, verbose = verbose, es_type = NULL) + ## TODO: add back `effects = "fixed"` once the deprecation warning in parameters is removed + params <- parameters::model_parameters(model, verbose = verbose, es_type = NULL) anova_type <- attr(params, "anova_type") params <- as.data.frame(params) diff --git a/R/interpret.R b/R/interpret.R index 58172b8f..993566aa 100644 --- a/R/interpret.R +++ b/R/interpret.R @@ -111,6 +111,10 @@ is.rules <- function(x) inherits(x, "rules") #' interpret(c(0.35, 0.15), c("small" = 0.2, "large" = 0.4), name = "Cohen's Rules") #' interpret(c(0.35, 0.15), rules(c(0.2, 0.4), c("small", "medium", "large"))) #' +#' bigness <- rules(c(1, 10), c("small", "medium", "big")) +#' interpret(abs(-5), bigness) +#' interpret(-5, bigness, transform = abs) +#' #' # ---------- #' d <- cohens_d(mpg ~ am, data = mtcars) #' interpret(d, rules = "cohen1988") diff --git a/R/interpret_bf.R b/R/interpret_bf.R index 08ccbae6..f420dd51 100644 --- a/R/interpret_bf.R +++ b/R/interpret_bf.R @@ -61,10 +61,10 @@ interpret_bf <- function(bf, rules, list( jeffreys1961 = rules(c(3, 10, 30, 100), c("anecdotal", "moderate", "strong", "very strong", "extreme"), - name = "jeffreys1961" + name = "jeffreys1961" ), raftery1995 = rules(c(3, 20, 150), c("weak", "positive", "strong", "very strong"), - name = "raftery1995" + name = "raftery1995" ) ) ) diff --git a/man/interpret.Rd b/man/interpret.Rd index 692a0b3a..c831620e 100644 --- a/man/interpret.Rd +++ b/man/interpret.Rd @@ -45,6 +45,10 @@ interpret(c(0.01, 0.005, 0.08), rules_grid) interpret(c(0.35, 0.15), c("small" = 0.2, "large" = 0.4), name = "Cohen's Rules") interpret(c(0.35, 0.15), rules(c(0.2, 0.4), c("small", "medium", "large"))) +bigness <- rules(c(1, 10), c("small", "medium", "big")) +interpret(abs(-5), bigness) +interpret(-5, bigness, transform = abs) + # ---------- d <- cohens_d(mpg ~ am, data = mtcars) interpret(d, rules = "cohen1988")