## Not run:
#
# data(gcsecomp1, package="R2MLwiN")
#
# (mymodel <- runMLwiN(c(written, csework) ~ 1 + female + (1 | school) + (1 | student),
# D = "Multivariate Normal", estoptions = list(EstM = 1), data = gcsecomp1))
#
# ## End(Not run)
Run the code above in your browser using DataLab