Update change_index.r

similar changes to the change_agecomp or change_lcomp