dt_changeLevels.r