From 0ef807dfcd3e5e6cc1e983822e46ff7a0bd1cf3a Mon Sep 17 00:00:00 2001 From: Daniel Date: Mon, 6 Mar 2023 15:12:01 +0100 Subject: [PATCH] #854 --- R/format_p_adjust.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/format_p_adjust.R b/R/format_p_adjust.R index 2562f0a58..28189ace7 100644 --- a/R/format_p_adjust.R +++ b/R/format_p_adjust.R @@ -39,7 +39,7 @@ format_p_adjust <- function(method) { ## TODO add "mvt" method from emmeans # prepare arguments - all_methods <- c(tolower(stats::p.adjust.methods), "tukey", "scheffe", "sidak") + all_methods <- c(stats::p.adjust.methods, "tukey", "scheffe", "sidak") # for interaction terms, e.g. for "by" argument in emmeans # pairwise comparison, we have to adjust the rank resp. the @@ -60,7 +60,7 @@ format_p_adjust <- function(method) { # only proceed if valid argument-value - if (tolower(p_adjust) %in% all_methods) { + if (tolower(p_adjust) %in% tolower(all_methods)) { # save old values, to check if p-adjustment worked old_p_vals <- params$p # find statistic column