Update EM2.r