# NOT RUN {
summary(icd::comorbid_pccc_dx(icd:::generate_neds_pts()))
neds <- icd:::generate_neds_pts(n = 100, ncol = 10L, icd10 = FALSE)
stopifnot(dim(neds) == c(100L, 11L))
summary(icd::comorbid_pccc_dx(neds))
# }
# NOT RUN {
# original size data for PCCC benchmarking:
set.seed(1441)
# Large NEDS simulation: neds <- icd:::generate_neds_pts(28584301L)
neds <- icd:::generate_neds_pts(2858L)
neds_comorbid <- icd::comorbid_pccc_dx(neds)
# }
Run the code above in your browser using DataLab