Nothing
##' find CI from a z test (known sigma)
##'
##' @param x data
##' @param sigma known population standard deviation
##' @param conf.level confidence level
##' @return a confidence interval
##'
##' @export
simple.z.test <-function(x,sigma,conf.level=0.95) {
n <- length(x);xbar<-mean(x)
alpha <- 1 - conf.level
zstar <- qnorm(1-alpha/2)
SE <- sigma/sqrt(n)
xbar + c(-zstar*SE,zstar*SE)
}
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.