if (FALSE) {
data(diag1, package = "R2MLwiN")
(mymodel <- runMLwiN(n_ilea ~ 1 + n_vrq + (1 + n_vrq | school) + (1 | pupil),
estoptions = list(resi.store = TRUE, resioptions = c("standardised",
"leverage", "influence", "deletion")), data = diag1))
}
Run the code above in your browser using DataLab