# \donttest{
set.seed(1234)
data_null_processed <- prep_data(data = data_null, grace_period_length = 2,
baseline_vars = 'L')
res_est <- ipw(data = data_null_processed,
time_smoothed = TRUE,
outcome_times = c(6, 12, 18, 24),
A_model = A ~ L + Z,
R_model_numerator = R ~ L_baseline + Z,
R_model_denominator = R ~ L + A + Z,
Y_model = Y ~ L_baseline * (time + Z))
res_ci <- get_CI(ipw_res = res_est, data = data_null_processed, n_boot = 10)
res_ci
# }
Run the code above in your browser using DataLab