Running ‘confintrob_test.R’ [10s/11s]
  Comparing ‘confintrob_test.Rout’ to ‘confintrob_test.Rout.save’ ... OK
  Running ‘parallelTest.R’ [3s/7s]
  Running ‘varComprob_createParamSampleFunction.R’ [2s/3s]
Running the tests in ‘tests/varComprob_createParamSampleFunction.R’ failed.
Complete output:
  > require(confintROB)
  Loading required package: confintROB
  > require(lme4)
  Loading required package: lme4
  Loading required package: Matrix
  > require(robustvarComp)
  Loading required package: robustvarComp
  Warning message:
  In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
    there is no package called 'robustvarComp'
  > 
  > test.varComprob <-
  +   function(object, data = sleepstudy) {
  +     cat("Running test for object of class ", class(object), "\n")
  +     sample <- confintROB:::createParamSampleFunction(model = object,
  +                                                      data = data)
  +     set.seed(123)
  +     result11 <- c(sample(1), sample(1))
  +     set.seed(123)
  +     result2 <- sample(2)
  +     names(result11) <- names(result2)
  +     stopifnot(all.equal(result11, result2))
  +     return(result2)
  +   }
  > 
  > participant <- sleepstudy$Subject
  > within <- sleepstudy$Days
  > 
  > # Build the argument "groups" of the varComprob() function
  > n <- length(unique(participant)) # the number of participants
  > J <-
  +   length(unique(within)) # the number of repeated observations per participant
  > groups <-
  +   cbind(rep(1:J, each = n), rep((1:n), J)) # a numeric matrix with two columns used to group the observations according to participant.
  > 
  > # Build the argument "varcov" of the varComprob() function
  > z1 <-
  +   rep(1, J) #Value for intercept (=1) for the J observations by clusters
  > z2 <- unique(within) # Value for the time variable
  > 
  > K <-
  +   list(
  +     # Matrix for intercept
  +     sigma2_u0 = tcrossprod(z1, z1),
  +     # Matrix of interaction Intercept by time variable
  +     Covariance = tcrossprod(z1, z2) + tcrossprod(z2, z1),
  +     # Matrix for time variable
  +     sigma2_u1 = tcrossprod(z2, z2)
  +   )
  > 
  > # Estimation with S-estimator
  > suppressWarnings(
  +   model.S <-
  +     varComprob(
  +       Reaction ~ 1 + Days,
  +       groups = groups,
  +       data = sleepstudy,
  +       varcov = K,
  +       control = varComprob.control(
  +         lower = c(0, -Inf, 0),
  +         method = "S",
  +         psi = "rocke",
  +         max.it = 1,
  +         init = list(
  +           beta = c("(Intercept)" = 253.835569743834, Days = 10.7736608268214),
  +           gamma = c(
  +             sigma2_u0 = 1.59549700005736,
  +             Covariance = -0.0711447985744645,
  +             sigma2_u1 = 0.0765023178239254
  +           ),
  +           eta0 = c("error variance" = 692.556625895202),
  +           scale = 10752.1432565101
  +         )
  +       )
  +     )
  + )
  Error in varComprob(Reaction ~ 1 + Days, groups = groups, data = sleepstudy,  : 
    could not find function "varComprob"
  Execution halted