Nothing
"CIrb" <-
function (x, LEVEL=.95, homogenous=TRUE)
{
rb <- rbar(x)
noma <- 1 - LEVEL
if (!homogenous)
{serb <- SERHOM(x)}
else {serb <- SERHET(x)}
zs <- -qnorm(noma/2)
merb <- zs*serb
lcl <- rb - merb
ucl <- rb + merb
mat <- list(lcl, ucl)
return(as.numeric(mat))
}
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.