fixed partner_specificity.R