Nothing
get_distance <- function(trigrams, model) {
diff <- abs(trigrams - model[names(trigrams)])
diff[is.na(diff)] <- MAX_DIFFERENCE
sum(diff)
}
get_distances <- function(trigrams, languages, whitelist = NULL,
blacklist = NULL) {
languages <- filter_languages(languages, whitelist, blacklist)
sort(vapply(languages, get_distance, 1, trigrams = trigrams))
}
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.