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