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

Require greater values in alternative hypothesis

Browse source
This commit is contained in:
Elias Projahn 2022-07-18 13:52:14 +02:00
parent 3d7c508a83
commit 015b51e77c
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/server.R
View file

@ -48,6 +48,7 @@ server <- function(input, output, session) {
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
) )
@ -61,8 +62,8 @@ server <- function(input, output, session) {
upper <- format(round(test_result$conf.int[2], digits = 3), nsmall = 3) upper <- format(round(test_result$conf.int[2], digits = 3), nsmall = 3)
HTML(glue::glue( HTML(glue::glue(
"The p-value for the alternative hypothesis that your genes have ", "The p-value with the alternative hypothesis that your genes have ",
"different scores than other genes is <b>{p_value}</b>. This value ", "higher 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 ",