if (FALSE) {
con <- DBI::dbConnect(duckdb::duckdb(),
dbdir = CDMConnector::eunomia_dir())
cdm <- CDMConnector::cdm_from_con(con,
cdm_schem = "main",
write_schema = "main")
cdm <- CDMConnector::generateConceptCohortSet(cdm = cdm,
conceptSet = list(a = 260139,
b = 1127433),
name = "cohorts",
end = "observation_period_end_date",
overwrite = TRUE)
results_cohort_mult <-
summariseCohortCodeUse(list(cs = c(260139,19133873)),
cdm = cdm,
cohortTable = "cohorts",
timing = "entry")
results_cohort_mult
CDMConnector::cdmDisconnect(cdm)
}
Run the code above in your browser using DataLab