2
## This example takes too long
3
## if (isTRUE(try(data(star, package = 'mlmRev')) == 'star')) {
4
## fm1 <- lme4:::carryOver(math ~ gr+sx*eth+cltype+(yrs|id)+(1|tch)+(yrs|sch),
6
## control = list(msV = 1, nit = 0, grad = 0))
7
## print(fm1, corr = FALSE)
1
if(FALSE) {## This example takes too long
3
if (isTRUE(try(data(star, package = 'mlmRev')) == 'star')) {
4
fm1 <- lme4:::carryOver(math ~ gr+sx*eth+cltype+(yrs|id)+(1|tch)+(yrs|sch),
6
control = list(msV = 1, nit = 0, grad = 0))
7
print(fm1, corr = FALSE)