Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(comorbidity)
set.seed(1)
df <- data.frame(
id = sample(seq(100), size = 10000, replace = TRUE),
code = sample_diag(n = 100)
)
# Sort
df <- df[order(df$id, df$code), ]
str(df)
## -----------------------------------------------------------------------------
charlson_df <- comorbidity(
x = df,
id = "id",
code = "code",
map = "charlson_icd10_quan",
assign0 = FALSE
)
str(charlson_df)
## -----------------------------------------------------------------------------
length(unique(df$id)) == nrow(charlson_df)
## -----------------------------------------------------------------------------
quan_cci <- score(x = charlson_df, weights = "quan", assign0 = FALSE)
table(quan_cci)
## -----------------------------------------------------------------------------
length(quan_cci) == nrow(charlson_df)
## -----------------------------------------------------------------------------
unw_cci <- score(x = charlson_df, weights = NULL, assign0 = FALSE)
table(unw_cci)
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.