Create EM algorithm.Rmd