if (FALSE) {
con <- DBI::dbConnect(duckdb::duckdb(),
dbdir = CDMConnector::eunomiaDir())
cdm <- CDMConnector::cdmFromCon(con,
cdmSchema = "main",
writeSchema = "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")
tableCohortCodeUse(results_cohort_mult)
CDMConnector::cdmDisconnect(cdm)
}
Run the code above in your browser using DataLab