Nothing
se.jack <- function(x){
n <- length(x)
x <- as.matrix(x)
sqrt(((n - 1)/n) * sum((x - mean(x))^2))
}
se.jack1 <- function(x){
n <- length(x)
x <- as.matrix(x)
sqrt(sum((x - mean(x))^2)/(n*(n - 1)))
}
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.