bootci <-
function(x,level=0.05){
x<-sort(x)
alpha <-level/2
n<-length(x)
le<-ceiling(alpha*n)
re<-floor((1-alpha)*n)
ci<-c(x[le],x[re])
names(ci) <- c("lower","upper")
ci
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.