conf.int <- function(data,level=.95){ ci <- mean(data)+c(-1,1)*qnorm(1-((1-level)/2))*sd(data)/sqrt(length(data)) return(ci) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.