Updated change_lcomp.r function