From f7e2b1e51cf719f52e4b2047937ae886aace1827 Mon Sep 17 00:00:00 2001 From: Dominique Makowski Date: Mon, 3 Oct 2022 21:31:43 +0800 Subject: [PATCH] Update estimate_means.R --- R/estimate_means.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/estimate_means.R b/R/estimate_means.R index 7bdb9cfd..ee1959aa 100644 --- a/R/estimate_means.R +++ b/R/estimate_means.R @@ -160,7 +160,7 @@ estimate_means <- function(model, # Table Formating ---------------------------------------------------------- -.estimate_means_footer <- function(x, at = NULL, type = "means", adjust = NULL) { +.estimate_means_footer <- function(x, at = NULL, type = "means", p_adjust = NULL) { table_footer <- paste("\nMarginal", type) # Levels @@ -173,8 +173,8 @@ estimate_means <- function(model, } # P-value adjustment footer - if (!is.null(adjust) && "p" %in% names(x)) { - if (adjust == "none") { + if (!is.null(p_adjust) && "p" %in% names(x)) { + if (p_adjust == "none") { table_footer <- paste0(table_footer, "\np-values are uncorrected.") } else { table_footer <- paste0(table_footer, "\np-value adjustment method: ", parameters::format_p_adjust(adjust))