Machine learning, R code for EM algorithym

Salve in R: Suppose we can only observe M = 15 caservations: 1.85, 3.12,7.20, 4.73, 6.09, 1.84, 3.39, 4.57, 1.28,-0.71, 1.42, 40, 16, -1.90, 160, 185. The remaining in-m=5 obseruations are missing. Find aand 6 2 using the EM agaritum Let the complete data vector 11,72 ... Yn be a random sample from Neo 2). Suppose 11. Y2Ymare observed and Ym+1. Ym+2 Yn are missing How to change the code for a normal distribution and when the n for the missing /censored values is given, instead of the c= the censored time. For exponential distribution, and when the censored time is given codes EM ceasored Exec-lunctional scens tot 1e-9,ite.max=100) m-length(x) - aldat denean ERS-(sumx}#{n-dscell absesaldist & t= return listestresstecati ort)) } fiterul call iteration limit has been reached ") bre -LDW 1 Apply EM algorithm X4-42.51, 33, 27. 14, 24, 4) 500-70 EM.COX0.5,70,10)