R Under development (unstable) (2024-06-05 r86695 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> require(confintROB)
Loading required package: confintROB
> require(lme4)
Loading required package: lme4
Loading required package: Matrix
> require(robustlmm)
Loading required package: robustlmm
> require(robustvarComp)
Loading required package: robustvarComp
> require(foreach)
Loading required package: foreach
> require(parallel)
Loading required package: parallel
> require(doParallel)
Loading required package: doParallel
Loading required package: iterators
> 
> cl <- makeCluster(2, type = "PSOCK")
> doParallel::registerDoParallel(cl)
> 
> control <- lmerControl(check.conv.grad = "ignore")
> 
> model.ML <-
+   lmer(Yield ~ (1 | Batch),
+        Dyestuff,
+        REML = FALSE,
+        control = control)
> 
> set.seed(123)
> parallelResults <- confintROB(model.ML, nsim = 3)
> 
> stopCluster(cl)
> registerDoSEQ()
> 
> set.seed(123)
> singleThreadedResults <- confintROB(model.ML, nsim = 3)
> stopifnot(all.equal(parallelResults, singleThreadedResults))
> 
> proc.time()
   user  system elapsed 
   2.43    0.35    5.65