Nothing
closest.top <- function(x, dist.mat, top)
{
dist <- as.matrix(dist.mat)
vector <- dist[x,colnames(dist) != x]
return(names(vector)[order(vector)[1:top]])
}
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.