styler

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)
 

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")

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"
       )
     )
   )