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 <b>{p_value}</b>. This value ",
+        "The p-value with the alternative hypothesis that your genes have ",
+        "higher 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 ",