Merge branch 'main' into strengejacke/issue394

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: report
 Type: Package
 Title: Automated Reporting of Results and Statistical Models
-Version: 0.5.8.4
+Version: 0.5.8.5
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

R/report_htest_friedman.R

@@ -9,7 +9,7 @@
 # report_effectsize ---------------------
 
 .report_effectsize_friedman <- function(x, table, dot_args) {
-  args <- c(list(x, effectsize_type = "kendalls_w"), dot_args)
+  args <- c(list(x, es_type = "kendalls_w"), dot_args)
   table <- do.call(parameters::parameters, args)
   ci <- attributes(table)$ci
   estimate <- "kendalls_w"

R/report_htest_wilcox.R

@@ -9,14 +9,14 @@
 # report_effectsize ---------------------
 
 .report_effectsize_wilcox <- function(x, table, dot_args) {
-  args <- c(list(x, rank_biserial = TRUE), dot_args)
-  table <- do.call(parameters::parameters, args)
+  my_args <- c(list(x, es_type = "rank_biserial"), dot_args)
+  table <- do.call(parameters::model_parameters, my_args)
   ci <- attributes(table)$ci
   estimate <- "r_rank_biserial"
 
   # same as Pearson's r
-  args <- c(list(table$r_rank_biserial), dot_args)
-  interpretation <- do.call(effectsize::interpret_r, args)
+  my_args <- c(list(table$r_rank_biserial), dot_args)
+  interpretation <- do.call(effectsize::interpret_r, my_args)
   rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name"))
 
   main <- paste0("r (rank biserial) = ", insight::format_value(table$r_rank_biserial))
@@ -42,7 +42,7 @@
   if ("Parameter1" %in% names(table)) {
     vars_full <- paste0(table$Parameter1[[1]], " and ", table$Parameter2[[1]])
 
-    text <- paste0(
+    text_string <- paste0(
       trimws(x$method),
       " testing the difference in ranks between ",
       vars_full
@@ -51,13 +51,13 @@
     # one-sample
     vars_full <- paste0(table$Parameter[[1]])
 
-    text <- paste0(
+    text_string <- paste0(
       trimws(x$method),
       " testing the difference in rank for ",
       vars_full,
       " and true location of 0"
     )
   }
 
-  text
+  text_string
 }