Token Set Ratio In R