Create EM_algorithm.r