# \donttest{
data(d_sim_binom_cov_hgly2)
er_binary_cov_model_kfold <- dev_ermod_bin_cov_sel(
data = d_sim_binom_cov_hgly2,
var_resp = "AEFLAG",
var_exposure = "AUCss_1000",
var_cov_candidate = c(
"BAGE_10", "BWT_10", "BGLUC",
"BHBA1C_5", "RACE", "VISC"
),
cv_method = "kfold",
k = 3, # Choose 3 to make the example go fast
validate_search = TRUE,
)
plot_submod_performance(er_binary_cov_model_kfold)
plot_var_ranking(er_binary_cov_model_kfold)
# }
Run the code above in your browser using DataLab