R/levenshtein.damerau.neighbors.R

In vwr: Useful functions for visual word recognition research

Defines functions levenshtein.damerau.neighbors

Documented in levenshtein.damerau.neighbors

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

Try the vwr package in your browser