emtest.norm(x, m0, C = NULL, len = 5, eps = 1e-05)emtest with the following elements:Li, P. and Chen, J. (2010). ``Testing the order of a finite mixture model.'' JASA. 105, 1084--1092.
Li, P., Chen, J. and Marriott, P. (2009). ``Non-finite Fisher information and homogeneity: The EM approach.'' Biometrika. 96, 411--426.
emtest.binom, emtest.exp,
emtest.norm, emtest.poisx <- rnormmix(200, c(0.5, 0.5), c(-2, 2))
emtest.norm(x, 2)Run the code above in your browser using DataLab