Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(coder)
## ---- eval = FALSE------------------------------------------------------------
# visualize(charlson)
## ---- eval = FALSE------------------------------------------------------------
# visualize(charlson, "myocardial infarction", regex = "icd9cm_deyo")
## ---- echo = FALSE------------------------------------------------------------
knitr::include_graphics("regexp_charlson_ci_icd9.png")
## ---- eval = FALSE------------------------------------------------------------
# visualize(charlson, "myocardial infarction", regex = "icd10")
## ---- echo = FALSE------------------------------------------------------------
knitr::include_graphics("regexp_charlson_ci_icd10.png")
## -----------------------------------------------------------------------------
head(decoder::icd10cm)
## -----------------------------------------------------------------------------
s <- summary(charlson, coding = "icd10cm")
s
## -----------------------------------------------------------------------------
summary(charlson, coding = "icd10se")
## -----------------------------------------------------------------------------
summary(
charlson, coding = "icd9cmd",
cc_args = list(regex = "icd9cm_deyo")
)
## -----------------------------------------------------------------------------
cm <- codebook(charlson, "icd10cm")$all_codes
cm[cm$group == "AIDS/HIV", ]
se <- codebook(charlson, "icd10se")$all_codes
se[se$group == "AIDS/HIV", ]
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.