Nothing
icmoyenne <- function(emoy=emoy, evar=evar, n=n, alpha=0.05) {
inter = alpha/2#seuil de confiance
lower = emoy + qt(inter, n - 1) * sqrt(evar/n)
upper = emoy + qt(1 - inter, n - 1) * sqrt(evar/n)
return(c(lower, upper))
}
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.