# \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",
# Settings to make the example run faster
chains = 2,
iter = 1000
)
cv_results <- run_kfold_cv(ermod_bin, k = 3, seed = 123)
print(cv_results)
# }
Run the code above in your browser using DataLab