# NOT RUN {
up <- uranium_pathology[1:50, ]
if (exists("icd10_comorbid_parent_search_orig"))
stopifnot(identical(
icd:::icd10_comorbid_parent_search_orig(up, icd10_map_ahrq,
visit_name = "case", icd_name ="icd10",
short_code = FALSE, short_map = TRUE, return_df = FALSE),
icd:::icd10_comorbid_parent_search_use_cpp(up, icd10_map_ahrq,
visit_name = "case", icd_name ="icd10",
short_code = FALSE, short_map = TRUE, return_df = FALSE),
icd:::icd10_comorbid_reduce(up, icd10_map_ahrq,
visit_name = "case", icd_name ="icd10",
short_code = FALSE, short_map = TRUE, return_df = FALSE)
))
# }
Run the code above in your browser using DataLab