here is the code I wrote for this problem and the sample data is attached. Thanks! %let maxscore=1000; data title_deldup; set title(rename=(title=title1 order=order1)) nobs=nobs1; if _n_ = 1 then do; call compcost( 'fdelete=',200, 'finsert=',200, 'freplace=',100, 'delete=',100, 'insert=',100, 'replace=',100, 'append=',200, 'truncate=',200, 'double=',20, 'single=',20, 'swap=',20, 'blank=',10, 'punctuation=',10, 'match=',0 ); end; do i = 1 to nobs1; if _n_ < i then do; set title(rename=(title=title2 order=order2)) point=i; gedscore=compged(title1,title2,'iL' ); if gedscore<&maxscore then output; end; end; run;
... View more
