emtest.exp(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.norm
,
emtest.pois
x <- rexpmix(200, c(0.5, 0.5), c(1, 20))
emtest.exp(x, 2)
Run the code above in your browser using DataLab