Nothing
# Variance of columns of a matrix
.colVars <- function(.x){
.m <- colMeans(.x)
.vr <- rowSums( (t(.x) - .m)^2 ) / (nrow(.x) - 1)
return(.vr)
}
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.