Add aggreement.R