if (FALSE) {
library(CodelistGenerator)
library(duckdb)
library(DBI)
library(CDMConnector)
con <- dbConnect(duckdb(),
dbdir = eunomiaDir())
cdm <- cdmFromCon(con,
cdmSchema = "main",
writeSchema = "main")
cdm <- 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