Update EffectSalChange.R