data("betablocker", package = "flexmix")
betaMix <- initFlexmix(cbind(Deaths, Total-Deaths) ~ 1 | Center,
data=betablocker, k=3, nrep=5,
model=FLXMRglmfix(family="binomial",
fixed=~Treatment))
Run the code above in your browser using DataCamp Workspace