# NOT RUN {
mydf <- as.icd9(data.frame(visit_name = c("a", "b", "c"),
icd9 = c("412.93", "441", "044.9")))
cmb <- icd9_comorbid_quan_elix(mydf, short_code = FALSE, hierarchy = TRUE, return_df=TRUE)
cmb
icd_van_walraven_from_comorbid(cmb)
icd_van_walraven(mydf)
icd_van_walraven(mydf, return_df = TRUE)
# }
Run the code above in your browser using DataLab