Counts positive first differences and compares to \((n-1)/2\).
Reproduces randtests::difference.sign.test.
Examples
if (requireNamespace("randtests", quietly = TRUE)) {
set.seed(4)
x <- rnorm(80)
res <- morie_difference_sign_test(x)
res$p.value
}
#> [1] 0.3359238
