The function 'survbin()' fits the model for a binary surrogate and time-to-event true endpoint developed by Burzykowski et al. (2004) in the meta-analytic multiple-trial setting.
survbin(data, true, trueind, surrog, trt, center, trial, patientid)
Returns an object of class "survbin" that can be used to evaluate surrogacy and contains the following elements:
Indiv.GlobalOdds: a data frame that contains the Global Odds and 95% confidence interval to evaluate surrogacy at the individual level.
Trial.R2: a data frame that contains the correlation coefficient and 95% confidence interval to evaluate surrogacy at the trial level.
EstTreatEffects: a data frame that contains the estimated treatment effects and sample size for each trial.
A data frame with the correct columns (See details).
Observed time-to-event (true endpoint).
Time-to-event indicator.
Binary surrogate endpoint.
Treatment indicator.
Center indicator (equal to trial if there are no different centers).
Trial indicator.
Patient indicator.
In the model developed by Burzykowski et al. (2004), a copula-based model is used for the true endpoint and a latent continuous variable, underlying the surrogate endpoint. More specifically, the Plackett copula is used. The marginal model for the surrogate endpoint is a logistic regression model. For the true endpoint, the proportional hazard model is used. The quality of the surrogate at the individual level can be evaluated by using the copula parameter Theta, which takes the form of a global odds ratio. The quality of the surrogate at the trial level can be evaluated by considering the correlation coefficient between the estimated treatment effects, while adjusting for the estimation error.
The data frame must contains the following columns:
a column with the observed time-to-event (true endpoint)
a column with the time-to-event indicator: 1 if true event is observed, 0 otherwise
a column with the binary surrogate endpoint: 1 or 2
a column with the treatment indicator: 0 or 1
a column with the trial indicator
a column with the center indicator. If there are no different centers within each trial, the center indicator is equal to the trial indicator
a column with the patient indicator
Dries De Witte
Burzykowski, T., Molenberghs, G., & Buyse, M. (2004). The validation of surrogate end points by using data from randomized clinical trials: a case-study in advanced colorectal cancer. Journal of the Royal Statistical Society Series A: Statistics in Society, 167(1), 103-124.
if (FALSE) {
data("colorectal")
fit_bin <- survbin(data = colorectal, true = surv, trueind = SURVIND, surrog = responder,
trt = TREAT, center = CENTER, trial = TRIAL, patientid = patientid)
print(fit_bin)
summary(fit_bin)
plot(fit_bin)
}
Run the code above in your browser using DataLab