Nothing
retrieve_similarity_function <- function(similarity) {
switch(
similarity,
"hk" = hk_similarity
)
}
l1_norm <- function(x,y) {sum(abs(x - y))}
hk_similarity <- function(x, y, k) {
exp(2*k - l1_norm(x, y)) - 1
}
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.