Update EM.R