Nothing
## ----basic-examples-----------------------------------------------------------
library("phonics")
x1 <- "Catherine"
x2 <- "Kathryn"
x3 <- "Katrina"
x4 <- "William"
x <- c(x1, x2, x3, x4)
soundex(x1)
soundex(x2)
soundex(x)
refinedSoundex(x1)
refinedSoundex(x2)
## ----soundex-test-example-----------------------------------------------------
soundex(x1) == soundex(x2)
soundex(x2) == soundex(x3)
## ----mra-example--------------------------------------------------------------
(mra1 = mra_encode("Katherine"))
(mra2 = mra_encode("Catherine"))
(mra3 = mra_encode("Katarina"))
mra_compare(mra1, mra2)
mra_compare(mra1, mra3)
mra_compare(mra2, mra3)
## ----mra-kw-example-----------------------------------------------------------
mra_compare(mra_encode("Catherine"), mra_encode("William"))
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.