# NOT RUN {
fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy)
fm1W <- confint(fm1, method="Wald")# very fast, but ....
fm1W
(fm2 <- lmer(Reaction ~ Days + (Days || Subject), sleepstudy))
(CI2 <- confint(fm2, maxpts = 8)) # method = "profile"; 8: to be much faster
# }
# NOT RUN {
testLevel <- if (nzchar(s <- Sys.getenv("LME4_TEST_LEVEL"))) as.numeric(s) else 1
if(interactive() || testLevel >= 3) {
## ~20 seconds, MacBook Pro laptop
system.time(fm1P <- confint(fm1, method="profile", ## default
oldNames = FALSE))
## ~ 40 seconds
system.time(fm1B <- confint(fm1, method="boot",
.progress="txt", PBargs=list(style=3)))
} else
load(system.file("testdata","confint_ex.rda",package="lme4"))
fm1P
fm1B
# }
Run the code above in your browser using DataLab