e2dist <-
function (x, y)
{
i <- sort(rep(1:nrow(y), nrow(x)))
dvec <- sqrt((x[, 1] - y[i, 1])^2 + (x[, 2] - y[i, 2])^2)
matrix(dvec, nrow = nrow(x), ncol = nrow(y), byrow = F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.