From 9960379645b0404941e03557df98330cde40b8e2 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 3 Jun 2022 17:56:14 +0200
Subject: [PATCH] Show confidence intervals for comparison

---
 R/server.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/R/server.R b/R/server.R
index 1892c55..0104767 100644
--- a/R/server.R
+++ b/R/server.R
@@ -142,9 +142,11 @@ server <- function(options) {
           "<b>{num(comparison$mean_rank, 1)}</b>. ",
           "This corresponds to a percent rank of ",
           "<b>{num(100 * comparison$mean_percentile, 2)}%</b>. ",
-          "A Wilcoxon rank sum test with the hypothesis of higher ",
-          "than usual scores gives a p-value of ",
-          "<b>{num(comparison$p_value, 4)}</b>."
+          "A Wilcoxon rank sum test gives an estimated score difference ",
+          "between <b>{num(comparison$test_result$conf.int[1], 3)}</b> and ",
+          "<b>{num(comparison$test_result$conf.int[2], 3)}</b> with a 95% ",
+          "confidence. This corresponds to a p-value of ",
+          "<b>{num(comparison$test_result$p.value, 4)}</b>."
         )
       }