Nothing
"cor2dist" <- function(x) {
if(dim(x)[1] != dim(x)[2]) {x <- cor(x,use="pairwise")}
dist <- sqrt(2*(1-x))
return(dist)
}
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.