Running ‘confintrob_test.R’ [16s/19s]
  Running ‘parallelTest.R’ [18s/52s]
  Running ‘varComprob_createParamSampleFunction.R’ [21s/26s]
  Comparing ‘varComprob_createParamSampleFunction.Rout’ to ‘varComprob_createParamSampleFunction.Rout.save’ ... OK
Running the tests in ‘tests/confintrob_test.R’ failed.
Complete output:
  > require(confintROB)
  Loading required package: confintROB
  > require(lme4)
  Loading required package: lme4
  Loading required package: Matrix
  > require(robustlmm)
  Loading required package: robustlmm
  > 
  > test <- function(object, ...) {
  +   doTest <- function(method, ...) {
  +     cat(
  +       "Running test for object of class ",
  +       class(object),
  +       " with arguments method = ",
  +       method,
  +       "\n"
  +     )
  +     set.seed(1234)
  +     result <-
  +       confintROB(
  +         object = object,
  +         level = .95,
  +         method = method,
  +         nsim = 10,
  +         boot.type = "parametric",
  +         clusterID = "Subject",
  +         ...
  +       )
  +     print(result, digits = 2)
  +   }
  +   
  +   for (method in c("boot", "BCa", "Wald")) {
  +     doTest(method, ...)
  +   }
  + }
  > 
  > test.wild <- function(object, ...) {
  +   cat("Running test.wild for object of class ",  class(object), "\n")
  +   set.seed(123)
  +   y 		 <- getME(object, "y")
  +   X      <- as.matrix(getME(object, "X"))
  +   id     <- getME(object, "flist")[[1]]
  +   bet    <- unname(fixef(object))
  +   result <-
  +     confintROB:::createWildSampleFunction(y = y,
  +                                           X = X,
  +                                           id = id,
  +                                           bet = bet)(1)
  +   print(result, digits = 5)
  + }
  > 
  > 
  > control <- lmerControl(check.conv.grad = "ignore")
  > 
  > model.ds.ML <-
  +   lmer(Yield ~ (1 | Batch),
  +        Dyestuff,
  +        REML = FALSE,
  +        control = control)
  Warning message:
  In optwrap(optimizer, devfun, getStart(start, rho$pp), lower = rho$lower,  :
    convergence code -2 from nloptwrap: NLOPT_INVALID_ARGS: Invalid arguments (e.g. lower bounds are bigger than upper bounds, an unknown algorithm was specified, etcetera).
  > print(summary(model.ds.ML), digits = 2)
  Linear mixed model fit by maximum likelihood  ['lmerMod']
  Formula: Yield ~ (1 | Batch)
     Data: Dyestuff
  Control: control
  
       AIC      BIC   logLik deviance df.resid 
       Inf      Inf     -Inf      Inf       27 
  
  Scaled residuals: 
     Min     1Q Median     3Q    Max 
   -1.52  -0.78   0.10   0.78   1.92 
  
  Random effects:
   Groups   Name        Variance Std.Dev.
   Batch    (Intercept) 2189     47      
   Residual             2285     48      
  Number of obs: 30, groups:  Batch, 6
  
  Fixed effects:
              Estimate Std. Error t value
  (Intercept)     1528         21      73
  > test(model.ds.ML)
  Running test for object of class  lmerMod  with arguments method =  boot 
  Ignoring argument 'clusterID' as it's not needed for this combination of arguments
  Error in bootstrap(model, nsim, max.tries, .export, sample, fit, ...) : 
    Failed to produce a valid model fit after 100 tries.
  Calls: test ... confintLMM -> parametric -> parametric.lmerMod -> bootstrap
  In addition: There were 50 or more warnings (use warnings() to see the first 50)
  Execution halted
Running the tests in ‘tests/parallelTest.R’ failed.
Complete output:
  > 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)
  Warning message:
  In optwrap(optimizer, devfun, getStart(start, rho$pp), lower = rho$lower,  :
    convergence code -2 from nloptwrap: NLOPT_INVALID_ARGS: Invalid arguments (e.g. lower bounds are bigger than upper bounds, an unknown algorithm was specified, etcetera).
  > 
  > set.seed(123)
  > parallelResults <- confintROB(model.ML, nsim = 3)
  Error in bootstrap(model, nsim, max.tries, .export, sample, fit, ...) : 
    Failed to produce a valid model fit after 100 tries.
  Calls: confintROB -> confintLMM -> wild -> wild.lmerMod -> bootstrap
  Execution halted