example: faster

lme4 · Nov 3, 2017 · b62fd08 · b62fd08
1 parent ce42eb4
commit b62fd08
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/man/confint.merMod.Rd b/man/confint.merMod.Rd
@@ -89,10 +89,11 @@ 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)) # default: method = "profile"
+(CI2 <- confint(fm2, maxpts = 8)) # method = "profile"; 8: to be much faster
 \dontshow{ stopifnot(all.equal(tol = 1e-6, signif(unname(CI2), 7),
-               array(c(15.25865, 3.964074, 22.88055, 237.5721,  7.334067,
-                       37.78647, 8.769159, 28.7876,  265.2381, 13.60051), c(5L, 2L))))
+               array(c(15.25847, 3.964157, 22.88062, 237.5732,  7.33431,
+                       37.78184, 8.768238, 28.78768, 265.2383, 13.60057),
+                     dim = c(5L, 2L))))
 }
 testLevel <- if (nzchar(s <- Sys.getenv("LME4_TEST_LEVEL"))) as.numeric(s) else 1
 if(interactive() || testLevel >= 3) {