# \donttest{
library(CodelistGenerator)
library(omock)
# Create CDM object
cdm <- mockCdmFromDataset(datasetName = "GiBleed")
# Get concept_class_ids in a codelist
x <- newCodelist(list("codes1" = c(1118088L, 40213201L, 35208414L),
"codes2" = c(1557272L, 4336464L, 4295880L)))
associatedConceptClassIds(x, cdm,
standardConcept = "Standard")
# Notice that this corresponds to the information provided by `concept_class_id`
# column in the `concept` table
# }
Run the code above in your browser using DataLab