library(stringdist)
somenames <- c("MOHAMED","ELHOUSSINE","LUIS","JOEL","MOHAMMED","YVES","VICTOR","FADHEL","MAXIME","ALAIN")
targetnames <- c("MOHAMED","ELHOUSSINE","LUIS","JOEL","MOHAMMED","YVES","VICTOR","FADHEL","MAXIME","ALAIN","MXYOME")
do_it <- function(somenames,targetnames,letter){
subnames <- targetnames[substr(targetnames,1,1)==letter]
as.data.frame(stringdistmatrix(a = subnames,b=somenames,useNames = TRUE,method = "lv")) %>%
rownames_to_column() %>%
pivot_longer(cols=-rowname) %>%
filter(value<=2 & value > 0)
}
do_it(somenames,
targetnames,
"A")
do_it(somenames,
targetnames,
"M")
library(purrr)
all_results <- map_dfr(LETTERS,
~do_it(somenames,
targetnames,
.x))