Rename fit.em to fit.em.r