Nothing
distancia1 <-
function (x, y)
{#Manhattan distance
if (class(y) == "matrix") {
# print(class(x))
# print(dim(t(y)))
distancia = drop(colSums(abs(x - t(y))))
distancia = t(distancia)
}
else distancia = sum(abs(x - y))
distancia
}
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.