Fuzzy Variable Name Check

FuzzyVar

###Variable Name Checking ##########
pop = read.csv("H:\\file1.csv", head=T, as.is=T)
sam = read.csv("H:\\file2_vars_10.csv", head=T, as.is=T)

p = pop$NAME[!(pop$NAME %in% sam$NAME)]
s = sam$NAME[!(sam$NAME %in% pop$NAME)]

res = data.frame()
for (i in 1:length(p)) {
    for (j in 1:length(s)) {
      temp =  adist(p[i],s[j])
      if(temp < 4) res = rbind(res,cbind(temp,p[i],s[j]))
  }
}

View(res[order(res[1], decreasing=T),])