data("tribolium", package = "flexmix")
tribMix <- initFlexmix(cbind(Remaining, Total - Remaining) ~ Species,
k = 2, nrep=5, data = tribolium,
model = FLXMRglm(family = "binomial"))
Run the code above in your browser using DataLab