22-centre clinical trial of beta-blockers for reducing mortality after myocardial infarction.

1 | ```
data("betablocker")
``` |

A data frame with 44 observations on the following 4 variables.

- Deaths
Number of deaths.

- Total
Total number of patients.

- Center
Number of clinical centre.

- Treatment
A factor with levels

`Control`

and`Treated`

.

G. McLachlan and D. Peel. *Finite Mixture Models*, 2000.
John Wiley and Sons Inc.
http://www.maths.uq.edu.au/~gjm/DATA/mmdata.html

M. Aitkin. Meta-analysis by random effect modelling in
generalized linear models.
*Statistics in Medicine*, **18**, 2343–2351, 1999.

S. Yusuf, R. Peto, J. Lewis, R. Collins and P. Sleight. Beta
blockade during and after myocardial infarction: an overview of the
randomized trials.
*Progress in Cardiovascular Diseases*, **27**, 335–371,
1985.

1 2 3 4 5 | ```
data("betablocker", package = "flexmix")
betaMix <- initFlexmix(cbind(Deaths, Total - Deaths) ~ 1 | Center,
data = betablocker, k = 3, nrep = 5,
model = FLXMRglmfix(family = "binomial",
fixed = ~Treatment))
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.