tests/signrank.R

In fuzzyRankTests: Fuzzy Rank Tests and Confidence Intervals

 library(fuzzyRankTests)

 options(digits=5) # avoid rounding differences

 x <- c(-3, -2, -2, 0, 0, 0, 0, 1, 2, 3, 4, 4, 4, 5, 6, 7)

 fuzzy.signrank.test(x)

 wilcox.test(x)

 fuzzy.signrank.test(x, alt = "less")

 wilcox.test(x, alt = "less")

 fuzzy.signrank.test(x, alt = "great")

 wilcox.test(x, alt = "great")

 fuzzy.signrank.ci(x)

 wilcox.test(x, conf.int = TRUE)

 fuzzy.signrank.ci(x, alt = "less")

 wilcox.test(x, conf.int = TRUE, alt = "less")

 fuzzy.signrank.ci(x, alt = "great")

 wilcox.test(x, conf.int = TRUE, alt = "great")