# library(DescTools)
# DescTools::BinomCI(x = 16, n = 200, method = "modified wilson")
# x <- c(35, 74, 22, 69)
# DescTools::MultinomCI(x, method = "goodman")
#
# x <- c(35, 39, 32, 34, 40, 38)
# DescTools::MultinomCI(x, method = "sisonglaz")
# x <- 1:50
# DescTools::MeanCI(x, method = "boot", type = "bca")
#
# x <- 1:50
# DescTools::MedianCI(x, method = "boot")
#
#
# set.seed(123456)
# x <- 1:50
# y <- rnorm(10)
# DescTools::MeanDiffCI(x, y, method = "bca")
# set.seed(123456)
# x <- 1:50
# y <- rnorm(10)
# DescTools::BootCI(x, y, FUN = cor, bci.method = "bca")
# SignTest()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.