# \donttest{
library(CodelistGenerator)
library(omopgenerics)
cdm <- mockVocabRef()
codes <- newCodelist(list("concepts_1" = c(20L,21L,22L),
"concepts_2" = c(10L,13L,21L)))
new_codes <- stratifyByDomain(x = codes,
cdm = cdm,
keepOriginal = TRUE)
new_codes
# }
Run the code above in your browser using DataLab