data("Mehta", package = "flexmix")
mehtaMix <- initFlexmix(cbind(Response, Total-Response) ~ 1|Site,
data=Mehta, nrep=5, k=3,
model=FLXMRglmfix(family="binomial",
fixed=~ Drug),
control=list(minprior=0.04))
Run the code above in your browser using DataCamp Workspace