# \donttest{
library(CodelistGenerator)
library(omock)
# Create CDM object
cdm <- mockCdmReference()
codelist <- newCodelist(list("codes1" = c(8479L, 4117795L),
"codes2" = c(8480L, 8600L, 8481L, 4189167L)))
associatedRelationshipIds(x = codelist, cdm = cdm,
standardConcept1 = c("Standard", "Non-standard", "Classification"),
standardConcept2 = c("Standard", "Non-standard", "Classification"),
domains1 = NULL,
domains2 = NULL)
# }
Run the code above in your browser using DataLab