Description Usage Arguments Details Value References See Also Examples
Function that creates a dataframe that links ICD-9-CM codes to the Charlson comorbidity categories using Quan's method.
1 | icd9cm_charlson_quan(icd9)
|
icd9 |
a unique character vector of ICD-9-CM codes |
NOTE: The input vector of ICD-9-CM codes must be unique, because the output dataframe uses the ICD-9-CM code as row.name.
Uses regular expressions created from the paper by Quan in 2005.
ICD-9-CM codes must have periods removed. Diagnostic codes are prefixed with
'D' while procedure codes are prefixed with 'P'. So, diagnostic code
404.03
should be "D40403"
.
A data frame, with ICD9 codes as row names and one logical column for each
comorbidity in charlson_list
1. Quan H, Sundararajan V, Halfon P, Fong A, Burnand B, Luthi J-C, Saunders LD, Beck CA, Feasby TE, Ghali WA: Coding algorithms for defining comorbidities in ICD-9-CM and ICD-10 administrative data. Medical care 2005; 43:1130-9 http://www.ncbi.nlm.nih.gov/pubmed/16224307
icd9cm_charlson_deyo
, icd9cm_charlson_romano
,
icd9cm_charlson_quan
, icd9cm_elixhauser_quan
1 2 3 4 5 6 7 8 9 10 11 | # Identify Charlson categories in ICD-9-CM listing
cases <- data.frame(id=c(1,1,1,2,2,2),
icd9cm=c("D20206","D24220","D4439","D5064","DE8788","D40403"),
stringsAsFactors=TRUE)
cases_with_cm <- merge(cases, icd9cm_charlson_quan(levels(cases$icd9cm)),
by.x="icd9cm", by.y="row.names", all.x=TRUE)
# generate crude comorbidity summary for each patient
library(plyr)
ddply(cases_with_cm, .(id),
function(x) { data.frame(lapply(x[,3:ncol(x)], any)) })
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.