data(hvtn505)
dat <- load_data(time="HIVwk28preunblfu", event="HIVwk28preunbl", vacc="trt",
marker="IgG_V2", covariates=c("age","BMI","bhvrisk"),
weights="wt", ph2="casecontrol", data=hvtn505)
# \donttest{
ests_cox <- est_ce(
dat = dat,
type = "Cox",
t_0 = 578,
params_cox = params_ce_cox(spline_df=4)
)
# }
Run the code above in your browser using DataLab