Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(coder)
## -----------------------------------------------------------------------------
categorize(ex_people, codedata = ex_icd10, cc = charlson, id = "name", code = "icd10")
## -----------------------------------------------------------------------------
all_classcodes()
## -----------------------------------------------------------------------------
charlson
## -----------------------------------------------------------------------------
print(elixhauser, n = 0) # preview 0 rows but present the attributes
## -----------------------------------------------------------------------------
pat <- tibble::tibble(id = "Alice")
diags <- c("C01", "C801", "E1010", "E1021")
decoder::decode(diags, decoder::icd10cm)
## -----------------------------------------------------------------------------
icd10 <- tibble::tibble(id = "Alice", icd10 = diags)
x <- categorize(pat, codedata = icd10, cc = elixhauser,
id = "id", code = "icd10", index = "sum_all", check.names = FALSE)
t(x)
## -----------------------------------------------------------------------------
nomesco <-
tibble::tibble(
id = "Alice",
kva = c("AA01", "NFC01"),
post_op = c(TRUE, FALSE)
)
## -----------------------------------------------------------------------------
set_classcodes(hip_ae, regex = "kva")
## -----------------------------------------------------------------------------
categorize(pat, codedata = nomesco, cc = hip_ae, id = "id", code = "kva",
cc_args = list(regex = "kva"))
## -----------------------------------------------------------------------------
charlson_icd8 <-
set_classcodes(
"charlson",
regex = "icd8_brusselaers", # Version based on ICD-8
start = FALSE, # Codes do not have to occur in the beginning of a vector
stop = TRUE, # Code vector must end with the specified codes
tech_names = TRUE # Use long but unique and descriptive variable names
)
## -----------------------------------------------------------------------------
charlson_icd8
## -----------------------------------------------------------------------------
classify(410, charlson_icd8)
## -----------------------------------------------------------------------------
classify(
410,
"charlson",
cc_args = list(
regex = "icd8_brusselaers",
start = FALSE,
stop = TRUE,
tech_names = TRUE
)
)
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.