johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use two-sided Wilcoxon test

Browse source
This commit is contained in:
Elias Projahn 2022-12-11 18:41:34 +01:00
parent 995b31646e
commit 26a209aade
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/server.R
View file

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