# \donttest{
library(CohortConstructor)
library(PhenotypeR)
cdm <- mockPhenotypeR()
cdm$arthropathies <- conceptCohort(cdm,
conceptSet = list("arthropathies" = c(40475132)),
name = "arthropathies")
result <- codelistDiagnostics(cdm$arthropathies)
CDMConnector::cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab