# \donttest{
data(d_sim_binom_cov_hgly2)
ermod_bin <- dev_ermod_bin(
data = d_sim_binom_cov_hgly2,
var_resp = "AEFLAG",
var_exposure = "AUCss_1000",
var_cov = "BHBA1C_5",
)
ersim <- sim_er(
ermod_bin,
n_draws_sim = 500, # This is set to make the example run faster
output_type = "draws"
)
ersim_med_qi <- sim_er(
ermod_bin,
n_draws_sim = 500, # This is set to make the example run faster
output_type = "median_qi"
)
ersim
ersim_med_qi
# }
Run the code above in your browser using DataLab