Description Usage Arguments Examples
Print ICD codes and comorbidity maps cleanly
1 2 3 4 5 |
x |
ICD codes to be printed |
verbose |
Annotate based on code attributes, e.g., decimal versus short codes. |
... |
arguments passed on to other functions |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | x <- structure(
c("40201", "2258", "7208", "25001", "34400", "4011", "4011", NA),
class = c("icd9cm", "icd9", "character"),
icd_short_diag = TRUE
)
## Not run:
print(x)
print(x, verbose = TRUE)
# as.factor drops any 'icd' classes
print(as.factor(x), verbose = TRUE)
## End(Not run)
## Not run:
u <- uranium_pathology[1:10, "icd10"]
print(u)
print(u, verbose = TRUE)
# as.character will unclass the 'icd' classes
print(as.character(u), verbose = TRUE)
a <- structure(c("R21", "Z21"),
class = c("icd10cm", "icd10", "character")
)
print(a, verbose = TRUE)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.