From 26a209aade57ef9cf2942967fd610b3efa41c0bd Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sun, 11 Dec 2022 18:41:34 +0100
Subject: [PATCH] Use two-sided Wilcoxon test

---
 R/server.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/server.R b/R/server.R
index ace9cd6..a7e2a14 100644
--- a/R/server.R
+++ b/R/server.R
@@ -66,7 +66,6 @@ server <- function(custom_dataset = NULL) {
         test_result <- stats::wilcox.test(
           x = comparison,
           y = reference,
-          alternative = "greater",
           conf.int = TRUE
         )
 
@@ -81,7 +80,7 @@ server <- function(custom_dataset = NULL) {
 
         HTML(glue::glue(
           "The p-value with the alternative hypothesis that your genes have ",
-          "higher scores than other genes is <b>{p_value}</b>. This value ",
+          "different scores than other genes is <b>{p_value}</b>. This value ",
           "was computed using a Wilcoxon rank sum test. Based on a 95% ",
           "confidence, the difference in scores is between <b>{lower}</b> and ",
           "<b>{upper}</b>. The median score of your genes is ",