me.EEV(data, z, eps, tol, itmax, equal = F, noise = F, Vinv)z should have a row for each observation
in data, and a column for each component of the mixture.c(.Machtol. Default : sqrt(.Machine$double.eps).Inf (no upper limit).F.F.noise = T). Default : determined by function hypvolA. P. Dempster, N. M. Laird and D. B. Rubin, Maximum Likelihood from Incomplete Data via the EM Algorithm, Journal of the Royal Statistical Society, Series B,39:1-22 (1977).
G. J. MacLachlan and K. E. Basford, The EM Algorithm and Extensions, Wiley (1997).
me, mstep.EEV, estep.XEVdata(iris)
cl <- mhclass(mhtree(iris[,1:4], modelid = "VVV"),3)
me.EEV( iris[,1:4], ctoz(cl))Run the code above in your browser using DataLab