Nothing
ci <- function(x, sd=100, conf.level=0.95) {
alpha = 1 - conf.level
n = length(x)
zstar <- - qnorm(alpha/2)
interval <- mean(x) + c(-1,1) * zstar * sd / sqrt(n)
return(list(conf.int=interval, estimate=mean(x)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.