diff --git a/NAMESPACE b/NAMESPACE index 3b348066..ed0d0874 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -97,6 +97,7 @@ importFrom(effectsize,interpret_d) importFrom(effectsize,interpret_direction) importFrom(effectsize,interpret_ess) importFrom(effectsize,interpret_odds) +importFrom(effectsize,interpret_omega_squared) importFrom(effectsize,interpret_p) importFrom(effectsize,interpret_r) importFrom(effectsize,interpret_r2) diff --git a/R/report.aov.R b/R/report.aov.R index e842e0d7..8fc6548c 100644 --- a/R/report.aov.R +++ b/R/report.aov.R @@ -14,7 +14,9 @@ #' r <- report(model) #' r #' table_short(r) -#' +#' @importFrom insight format_value format_p +#' @importFrom parameters model_parameters +#' @importFrom effectsize interpret_p #' @export report.aov <- function(model, interpretation = "field2013", omega_squared = "partial", eta_squared = NULL, epsilon_squared = NULL, ...) { table_full <- parameters::model_parameters(model, omega_squared = omega_squared, eta_squared = eta_squared, epsilon_squared = epsilon_squared, ...) @@ -55,7 +57,7 @@ report.aov <- function(model, interpretation = "field2013", omega_squared = "par ") = ", insight::format_value(parameters$`F`), ", ", - parameters::format_p(parameters$p) + insight::format_p(parameters$p) ) # Effect size @@ -100,6 +102,8 @@ report.aovlist <- report.aov # internals --------------------------------------------------------------- +#' @importFrom effectsize interpret_omega_squared +#' @importFrom insight format_value #' @keywords internal .format_aov_effsize <- function(parameters, interpretation = "field2013") { if ("Omega_Sq_partial" %in% names(parameters)) { diff --git a/R/report_parameters.R b/R/report_parameters.R index 4ee6e5dc..3e63bc67 100644 --- a/R/report_parameters.R +++ b/R/report_parameters.R @@ -52,7 +52,7 @@ report_parameters <- function(model, parameters, prefix = " - ", ...) { # bf[bf < 1] <- 1 / bf[bf < 1] # # paste0( - # parameters::format_bf(bf, name = dir), + # insight::format_bf(bf, name = dir), # ", considered ", # report::interpret_bf(ori_bf, include_value = FALSE, ...), # " the effect" diff --git a/man/report.aov.Rd b/man/report.aov.Rd index 88928a95..97201a17 100644 --- a/man/report.aov.Rd +++ b/man/report.aov.Rd @@ -41,7 +41,6 @@ model <- aov(Sepal.Length ~ Species * Cat1, data = data) r <- report(model) r table_short(r) - } \seealso{ \code{\link{table_short}} or \code{\link{text_short}} to access the