R Under development (unstable) (2023-11-01 r85459 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> if (lme4:::testLevel() > 1 || .Platform$OS.type!="windows") {
+ ### lmer() convergence testing / monitoring / ...
+     ##  ------------------
+ ### The output of tests here are *not* 'diff'ed  (<==> no *.Rout.save file)
+     library(lme4)
+ 
+     ## convergence on boundary warnings
+     load(system.file("external/test3comp.rda", package = "Matrix"))
+     b3 <- lmer(Y3 ~ (1|Sample) + (1|Operator/Run), test3comp, verb = TRUE)
+ 
+     if (isTRUE(try(data(Early, package = 'mlmRev')) == 'Early')) {
+         Early$tos <- Early$age - 0.5        # time on study
+         b1 <- lmer(cog ~ tos + trt:tos + (tos|id), Early, verb = TRUE)
+     }
+ 
+     cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''
+ } ## skip on windows (for speed)
> 
> proc.time()
   user  system elapsed 
   1.10    0.09    1.20