Create accoupl_mtn.r