R/levenshtein.neighbors.R

In vwr: Useful functions for visual word recognition research

Defines functions levenshtein.neighbors

Documented in levenshtein.neighbors

levenshtein.neighbors <-
function(xsource, targets){
    results<-list()
    distances<-levenshtein.distance(xsource, targets)
    for (distance in min(distances):max(distances)){
        results[distance]=list(names(which(distances==distance)))
    }
    return(results)
}

Try the vwr package in your browser