agrep
agrep: only return best match (es)
Używam funkcji 'agrep' w R, która zwraca wektor dopasowań. Chciałbym funkcję podobną do agrep, która zwraca tylko najlepszy ... stance))
matches <- subset(matches,distance==min(distance))
as.character(matches$matches)
}
ClosestMatch(word,words)