
data("betablocker")
S. Yusuf, R. Peto, J. Lewis, R. Collins and P. Sleight (1985): Beta blockade during and after myocardial infarction: an overview of the randomized trials. Progress in Cardiovascular Diseases 27, pages 335-371.
data("betablocker")
betaMix <- stepFlexmix(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 DataLab