emtest.binom(x, m0, size, 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.exp
, emtest.norm
,
emtest.pois
x <- rbinommix(200, c(0.5, 0.5), c(0.1, 0.9), 16)
emtest.binom(x, 2, size=16)
Run the code above in your browser using DataLab