Update callEM.r