checkign if any changes to identify_couples_d1.R