df_er_dr2 <-
d_sim_binom_cov |>
dplyr::filter(
AETYPE == "dr2",
ID %in% seq(1, 500, by = 5)
) |>
dplyr::mutate(AUCss_1000 = AUCss / 1000, BHBA1C_5 = BHBA1C / 5)
ermod_bin <- dev_ermod_bin(
data = df_er_dr2,
var_resp = "AEFLAG",
var_exposure = "AUCss_1000",
var_cov = "BHBA1C_5"
)
p_direction(ermod_bin, as_num = TRUE, as_p = TRUE)
Run the code above in your browser using DataLab