Implementation of EM14JoE in R