# NOT RUN {
library(stringdist)
D<-matrix(,n,n)
for(i in 1:n){for(j in 1:n){
D[i,j]<-stringdist(df1$PERNAME1[i],df2$PERNAME1[j]) +
stringdist(df1$PERNAME2[i],df2$PERNAME2[j],method="dl") +
stringdist(df1$DOB_YEAR[i],df2$DOB_Y#' EAR[j],method="dl")
}}
# }
Run the code above in your browser using DataLab