Levenshtein-Distance

Have you considered simply changing your numbers into strings with
as.character()?

E.g.,

library(vwr)
levenshtein.distance("aba","cda")

num1 <- 121; num2 <- 341
levenshtein.distance(as.character(num1),as.character(num2))

I find that last line a little verbose to type, so I'd write a little
helper which adds some generality as well.

LD <- function(s1, s2){
    require(vwr)
    s1 = as.character(s1)
    s2 = as.character(s2)
    t(sapply(s1, levenshtein.distance, s2))
}

Note that you can put vectors of numbers directly into LD().

Hope this helps,

Michael

Thread (7 messages)