qbeta(c(0.025, 0.975), 38 + 1, 62 + 1)
binom.test(38, 100) %>% confint() # for comparison
prop.test(38, 100) %>% confint() # for comparison
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.