Last updated on 2024-11-12 07:49:22 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.0-1 | 10.64 | 112.54 | 123.18 | OK | |
| r-devel-linux-x86_64-debian-gcc | 1.0-1 | 6.48 | 74.62 | 81.10 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.0-1 | 197.85 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 1.0-1 | 194.76 | OK | |||
| r-devel-windows-x86_64 | 1.0-1 | 11.00 | 115.00 | 126.00 | OK | |
| r-patched-linux-x86_64 | 1.0-1 | 9.23 | 104.67 | 113.90 | OK | |
| r-release-linux-x86_64 | 1.0-1 | 9.22 | 103.82 | 113.04 | OK | |
| r-release-macos-arm64 | 1.0-1 | 60.00 | OK | |||
| r-release-macos-x86_64 | 1.0-1 | 163.00 | OK | |||
| r-release-windows-x86_64 | 1.0-1 | 11.00 | 114.00 | 125.00 | OK | |
| r-oldrel-macos-arm64 | 1.0-1 | 61.00 | OK | |||
| r-oldrel-macos-x86_64 | 1.0-1 | 111.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.0-1 | 14.00 | 144.00 | 158.00 | OK |
Version: 1.0-1
Check: tests
Result: ERROR
Running ‘confintrob_test.R’ [11s/13s]
Comparing ‘confintrob_test.Rout’ to ‘confintrob_test.Rout.save’ ... OK
Running ‘parallelTest.R’ [3s/6s]
Running ‘varComprob_createParamSampleFunction.R’ [2s/2s]
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
Flavor: r-devel-linux-x86_64-debian-gcc