Last updated on 2026-10-24 12:51:28 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 2.0.0 | 8.71 | 95.99 | 104.70 | OK | |
| r-devel-linux-x86_64-debian-gcc | 2.0.0 | 7.08 | 68.39 | 75.47 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 2.0.0 | 8.00 | 66.92 | 74.92 | OK | |
| r-devel-linux-x86_64-fedora-gcc | 2.0.0 | 77.73 | OK | |||
| r-devel-windows-x86_64 | 2.0.0 | 11.00 | 107.00 | 118.00 | OK | |
| r-patched-linux-x86_64 | 2.0.0 | 11.17 | 89.09 | 100.26 | OK | |
| r-release-linux-x86_64 | 2.0.0 | 9.48 | 88.85 | 98.33 | OK | |
| r-release-macos-arm64 | 2.0.0 | 3.00 | 27.00 | 30.00 | OK | |
| r-release-macos-x86_64 | 2.0.0 | 7.00 | 108.00 | 115.00 | OK | |
| r-release-windows-x86_64 | 2.0.0 | 11.00 | 316.00 | 327.00 | OK | |
| r-oldrel-macos-arm64 | 2.0.0 | OK | ||||
| r-oldrel-macos-x86_64 | 2.0.0 | 7.00 | 472.00 | 479.00 | OK | |
| r-oldrel-windows-x86_64 | 2.0.0 | 16.00 | 397.00 | 413.00 | OK |
Version: 2.0.0
Check: examples
Result: ERROR
Running examples in ‘causalCmprsk-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fit.cox
> ### Title: Cox-based estimation of ATE corresponding to the target
> ### population
> ### Aliases: fit.cox
>
> ### ** Examples
>
> # create a data set
> n <- 1000
> set.seed(7)
> c1 <- runif(n)
> c2 <- as.numeric(runif(n)< 0.2)
> set.seed(77)
> cf.m.T1 <- rweibull(n, shape=1, scale=exp(-(-1 + 2*c1)))
> cf.m.T2 <- rweibull(n, shape=1, scale=exp(-(1 + 1*c2)))
> cf.m.T <- pmin( cf.m.T1, cf.m.T2)
> cf.m.E <- rep(0, n)
> cf.m.E[cf.m.T1<=cf.m.T2] <- 1
> cf.m.E[cf.m.T2<cf.m.T1] <- 2
> set.seed(77)
> cf.s.T1 <- rweibull(n, shape=1, scale=exp(-1*c1 ))
> cf.s.T2 <- rweibull(n, shape=1, scale=exp(-2*c2))
> cf.s.T <- pmin( cf.s.T1, cf.s.T2)
> cf.s.E <- rep(0, n)
> cf.s.E[cf.s.T1<=cf.s.T2] <- 1
> cf.s.E[cf.s.T2<cf.s.T1] <- 2
> exp.z <- exp(0.5 + 1*c1 - 1*c2)
> pr <- exp.z/(1+exp.z)
> TRT <- ifelse(runif(n)< pr, 1, 0)
> X <- ifelse(TRT==1, cf.m.T, cf.s.T)
> E <- ifelse(TRT==1, cf.m.E, cf.s.E)
> covs.names <- c("c1", "c2")
> data <- data.frame(X=X, E=E, TRT=TRT, c1=c1, c2=c2)
> form.txt <- paste0("TRT", " ~ ", paste0(covs.names, collapse = "+"))
> trt.formula <- as.formula(form.txt)
> wei <- get.weights(formula=trt.formula, data=data, wtype = "overlap")
> hist(wei$ps[data$TRT==1], col="red", breaks = seq(0,1,0.05))
> hist(wei$ps[data$TRT==0], col="blue", breaks = seq(0,1,0.05))
> # Cox-based estimation:
> res.cox.ATE <- fit.cox(df=data, X="X", E="E", trt.formula=trt.formula, wtype="stab.ATE")
Error in a$specials[[i]] : subscript out of bounds
Calls: fit.cox ... model.matrix -> model.matrix.coxph -> delete.response -> off
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc