Update change_lcomp.r

Similar modification to the change_agecomps i.e fixed some bugs