# Simulate 10 ICD-10 codes
sample_diag(10)
# Simulate a tidy dataset with 15 individuals and 200 rows
set.seed(1)
x <- data.frame(
id = sample(1:15, size = 200, replace = TRUE),
code = sample_diag(n = 200),
stringsAsFactors = FALSE
)
head(x)
Run the code above in your browser using DataLab