recover.B {SurrogateTest} | R Documentation |
Recover an estimate of the treatment effect at time t in Study B
Description
Recover an estimate of the treatment effect at time t in Study B
Usage
recover.B(Axzero, Adeltazero, Aszero, Axone, Adeltaone, Asone, Bxzero, Bdeltazero,
Bszero, Bxone, Bdeltaone, Bsone, t, landmark, extrapolate = T, transform = F)
Arguments
Axzero |
observed event times in the control group in Study A |
Adeltazero |
event/censoring indicators in the control group in Study A |
Aszero |
surrogate marker values in the control group in Study A, NA for individuals not observable at the time the surrogate marker was measured |
Axone |
observed event times in the treatment group in Study A |
Adeltaone |
event/censoring indicators in the treatment group in Study A |
Asone |
surrogate marker values in the treatment group in Study A, NA for individuals not observable at the time the surrogate marker was measured |
Bxzero |
observed event times in the control group in Study B |
Bdeltazero |
event/censoring indicators in the control group in Study B |
Bszero |
surrogate marker values in the control group in Study B, NA for individuals not observable at the time the surrogate marker was measured |
Bxone |
observed event times in the treatment group in Study B |
Bdeltaone |
event/censoring indicators in the treatment group in Study B |
Bsone |
surrogate marker values in the treatment group in Study B, NA for individuals not observable at the time the surrogate marker was measured |
t |
time of interest |
landmark |
landmark time of interest, t0 |
extrapolate |
TRUE or FALSE; indicates whether local constant extrapolation should be used, default is TRUE |
transform |
TRUE or FALSE; indicates whether a transformation should be used, default is FALSE |
Details
Assume there are two randomized studies of a treatment effect, a prior study (Study A) and a current study (Study B). Study A was completed up to some time t, while Study B was stopped at time . In both studies, a surrogate marker was measured at time
for individuals still observable at
. Let
be the binary treatment indicator with
for treatment and
for control and we assume throughout that subjects are randomly assigned to a treatment group at baseline. Let
and
denote the time of the primary outcome of interest, death for example, under the treatment and under the control, respectively, in Study K. Let
and
denote the surrogate marker measured at time
under the treatment and the control, respectively, in Study K.
The treatment effect quantity of interest, , is the difference in survival rates by time
under treatment versus control,
where . Here, we recover an estimate of
using Study B information (which stopped follow-up at time
) and Study A information (which has follow-up information through time t). The estimate is obtained as
where is the early treatment effect estimate in Study B, described in the early.delta.test documention, and
is the proportion of treatment effect explained by the surrogate marker information at
in Study A. This proportion is calculated as
where
and is parallel to
except replacing
by
and
is the Kaplan-Meier estimator of the survival function for
for
.
Perturbation resampling is used to provide a standard error estimate for the estimate of and a confidence interval.
Value
recovered.deltaB |
The recovered estimate of |
sd.recovered.deltaB |
The standard error estimate of the recovered estimate of |
conf.quantile.recovered.deltaB |
A confidence interval for the recovered estimate of |
Author(s)
Layla Parast
References
Parast L, Cai T, Tian L (2019). Using a Surrogate Marker for Early Testing of a Treatment Effect. Biometrics, In press.
Parast L, Cai T and Tian L (2017). Evaluating Surrogate Marker Information using Censored Data. Statistics in Medicine, 36(11): 1767-1782.
Examples
data(dataA)
data(dataB)
recover.B(Axzero = dataA$x0, Adeltazero = dataA$delta0, Aszero = dataA$s0, Axone
= dataA$x1, Adeltaone = dataA$delta1, Asone = dataA$s1, Bxzero = dataB$x0, Bdeltazero
= dataB$delta0, Bszero = dataB$s0, Bxone = dataB$x1, Bdeltaone = dataB$delta1, Bsone
= dataB$s1, t=1, landmark=0.5, extrapolate = TRUE)
recover.B(Axzero = dataA$x0, Adeltazero = dataA$delta0, Aszero = dataA$s0, Axone
= dataA$x1, Adeltaone = dataA$delta1, Asone = dataA$s1, Bxzero = dataB$x0, Bdeltazero
= dataB$delta0, Bszero = dataB$s0, Bxone = dataB$x1, Bdeltaone = dataB$delta1, Bsone
= dataB$s1, t=0.75, landmark=0.5, extrapolate = TRUE)