mom=readLines("http://www.norvig.com/big.txt") mom1=tolower(paste(mom,collapse=" ")) mom2=strsplit(mom1,"[^a-z]+") mom3=sort(table(mom2),decreasing = TRUE) want=names(mom3) corrector=function(needCorrect){ y=want[adist(needCorrect,want)==min(adist(needCorrect,want),2)] return(c(y,needCorrect)[1]) } > corrector("hia") [1] "his" > corrector("andd") [1] "and" > corrector("fof") [1] "of"
Modify a little bit, only the word with same letters(if it exist) will be returned.
mom=readLines("http://www.norvig.com/big.txt") mom1=tolower(paste(mom,collapse=" ")) mom2=strsplit(mom1,"[^a-z]+") mom3=sort(table(mom2),decreasing = TRUE) want=names(mom3) corrector=function(needCorrect){ y=want[adist(needCorrect,want)==min(adist(needCorrect,want),2)] if (length(y)>1) { y=y[nchar(y)==nchar(needCorrect)] } return(c(y,needCorrect)[1]) } > corrector("fof") [1] "for"
Reference:
http://norvig.com/spell-correct.html
http://www.sumsar.net/blog/2014/12/peter-norvigs-spell-checker-in-two-lines-of-r/
yant07
原文：http://www.cnblogs.com/yant07/p/6291115.html