For some strings I get a wrong (MiscPsycho) Levenstein distance:
> stringMatch("abc", "ab", normalize="NO")
[1] 1
> stringMatch("abc", "bc", normalize="NO")
[1] 2
I think the lines
d <- matrix(0, nrow = n + 1, ncol = m + 1)
d[, 1] <- 1:(n + 1)
d[1, ] <- 1:(m + 1)
d[1, 1] <- 0
should be changed to
d <- matrix(0, nrow = n + 1, ncol = m + 1)
d[, 1] <- 0:n
d[1, ] <- 0:m
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
