Nothing
ConfidenceInterval<- function(x, Desv=NULL, df=NULL, Confidence=0.95){
if (!is.numeric(x)) stop("You must use Numeric data to calculate a confidence interval")
n=length(x)
if (is.null(Desv)) Desv = sd(x)
if (is.null(df)) df=length(x)-1
prob=1-(1-Confidence)/2
error <- qt(prob,df=df)*Desv/sqrt(n)
left <- mean(x)-error
right <- mean(x)+error
return(c(left, right))
}
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.