Nothing
ci.gm <-
function(x){
gm1 = mean(log(x), na.rm = TRUE)
cil = exp(gm1-(1.96*(sd(log(x), na.rm = TRUE)/sqrt(length(x)))))
ciupp = exp(gm1+(1.96*(sd(log(x), na.rm = TRUE)/sqrt(length(x)))))
vec = c(round(cil,2), round(ciupp,2))
return (vec)
}
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.