# using magrittr is beautiful:
library("magrittr", quietly = TRUE, warn.conflicts = FALSE)
myData <- data.frame(
visitId = c("v1", "v2", "v3", "v4"),
icd9 = c("39891", "39790", "41791", "4401"),
poa = c("Y", "N", NA, "Y"),
stringsAsFactors = FALSE
)
myData %>% icd9FilterPoaNotNo() %>% icd9ComorbiditiesAhrq(isShort = TRUE)
# can fill out named fields also:
myData %>% icd9FilterPoaYes(poaField="poa") %>%
icd9ComorbiditiesAhrq(icd9Field = "icd9", visitId = "visitId")
# can call the core icd9Comorbidities function with an arbitrary mapping
myData %>%
icd9FilterPoaYes() %>%
icd9Comorbidities(icd9Field = "icd9", visitId = "visitId",
icd9Mapping = quanElixhauserComorbid,
validateMapping = TRUE,
isShortMapping = TRUE)
Run the code above in your browser using DataLab