levenshtein_dist <- function(s, t)
{
.Call(R_levenshtein_dist, s, t)
}
find_closest_word <- function(input, words)
{
.Call(R_find_closest_word, input, words)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.