Nothing
`distSqrd` <-
function (X,Y) {
nx = nrow(X);
ny = nrow(Y);
abs(rowSums(X^2)%o%rep(1, ny) + rep(1, nx)%o%rowSums(Y^2) - 2.*(X %*% t(Y)));
}
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.