Efficient implementation of the Lu-Tsiatis improvement using baseline covariates, extended to competing risks and recurrent events. Results almost equivalent with the speffSurv function of the speff2trial function in the survival case. A dynamic censoring augmentation regression is also computed to gain even more from the censoring augmentation. Furhter, we also deal with twostage randomizations. The function was implemented to deal with recurrent events (start,stop) + cluster, and more examples in vignette.
phreg_rct(
formula,
data,
cause = 1,
cens.code = 0,
typesR = c("R0", "R1", "R01"),
typesC = c("C", "dynC"),
augmentR0 = NULL,
augmentR1 = NULL,
augmentC = NULL,
treat.model = ~+1,
RCT = TRUE,
weight.var = NULL,
km = TRUE,
level = 0.95,
cens.model = NULL,
estpr = 1,
pi0 = 0.5,
...
)
formula with 'Surv' or 'Event' outcome (see coxph
) and treatment (randomization 0/1)
data frame
to use for competing risks, recurrent events data
to use for competing risks, recurrent events data
augmentations used for randomization
augmentations used for censoring
formula for the randomization augmentation (~age+sex)
formula for the randomization augmentation (~age+sex)
formula for the censoring augmentation (~age+sex)
propensity score model, default is ~+1, assuming RCT study
if false will use propensity score adjustment
in case of twostage randomization, this variable is 1 for the treatment times,
use Kaplan-Meier for the censoring weights (stratified on treatment)
of confidence intervals
default is censoring model ~strata(treatment) but any model can be used to make censoring martingales
estimates propensity scores
possible fixed propoensity scores for randomizations
Additional arguments to phreg function
Thomas Scheike
Lu, Tsiatis (2008), Improving the efficiency of the log-rank test using auxiliary covariates, Biometrika, 679--694 Scheike (2024), WIP, Two-stage randomization for recurrent events,
## Lu, Tsiatis simulation
data <- mets:::simLT(0.7,100)
dfactor(data) <- Z.f~Z
out <- phreg_rct(Surv(time,status)~Z.f,data=data,augmentR0=~X,augmentC=~factor(Z):X)
summary(out)
Run the code above in your browser using DataLab