pkpd_m3 <- pkpd_m3 %>%
# Need to ensure var types are set
set_var_types(catdv=BLQ,dvprobs=LIKE) %>%
# Set probs
set_dv_probs(1, 1~LIKE, .dv_var = BLQ) %>%
# Optional, but useful to set levels
set_var_levels(1, BLQ = lvl_bin())
m3_set <- xpose_set(
run1=set_prop(pkpd_m3,run="run1"),
run2=set_prop(pkpd_m3,run="run2"),
run3=set_prop(pkpd_m3,run="run3")
)
roc_by_mod(m3_set, type = "ck", quiet = TRUE)
Run the code above in your browser using DataLab