sim.CI3 <- CIsim(100, samples = 1000, rdist = rbinom,
args = list(size = 1, prob = 0.5), conf.level = 0.90,
method = binom.test, method.args = list(success = 1),
verbose = FALSE, estimand = 0.5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.