# NOT RUN {
mydf <- data.frame(visitId = c("a", "b", "c"),
icd9 = c("412.93", "441", "044.9"))
print(
cmb <- icd9ComorbidQuanElix(mydf, isShort = FALSE, applyHierarchy = TRUE, return.df=TRUE)
)
icd9VanWalravenComorbid(cmb)
icd9VanWalraven(mydf)
icd9VanWalraven(mydf, return.df = TRUE)
# }
Run the code above in your browser using DataLab