基于R的拼写纠正器

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