fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy)
fm1W <- confint(fm1,method="Wald")
## ~20 seconds, MacBook Pro laptop
system.time(fm1P <- confint(fm1,method="profile",oldNames=FALSE)) ## default
## ~ 40 seconds
system.time(fm1B <- confint(fm1,method="boot",
.progress="txt", PBargs=list(style=3)))
load(system.file("testdata","confint_ex.rda",package="lme4"))
fm1P
fm1B
Run the code above in your browser using DataCamp Workspace