From 015b51e77ce215700af5b591cc04430ce9dc57f4 Mon Sep 17 00:00:00 2001 From: Elias Projahn Date: Mon, 18 Jul 2022 13:52:14 +0200 Subject: [PATCH] Require greater values in alternative hypothesis --- R/server.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/server.R b/R/server.R index 18cd5d4..b687f5d 100644 --- a/R/server.R +++ b/R/server.R @@ -48,6 +48,7 @@ server <- function(input, output, session) { test_result <- stats::wilcox.test( x = comparison, y = reference, + alternative = "greater", conf.int = TRUE ) @@ -61,8 +62,8 @@ server <- function(input, output, session) { upper <- format(round(test_result$conf.int[2], digits = 3), nsmall = 3) HTML(glue::glue( - "The p-value for the alternative hypothesis that your genes have ", - "different scores than other genes is {p_value}. This value ", + "The p-value with the alternative hypothesis that your genes have ", + "higher scores than other genes is {p_value}. This value ", "was computed using a Wilcoxon rank sum test. Based on a 95% ", "confidence, the difference in scores is between {lower} and ", "{upper}. The median score of your genes is ",