if (FALSE) {
library(CohortCharacteristics)
library(omock)
libarry(CDMConnector)
library(dplyr, warn.conflicts = FALSE)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
cdm <- generateConceptCohortSet(
cdm = cdm,
conceptSet = list(viral_pharyngitis = 4112343),
name = "my_cohort"
)
result <- summariseLargeScaleCharacteristics(
cohort = cdm$my_cohort,
window = list(c(-Inf, -1), c(0, 0), c(1, Inf)),
episodeInWindow = "drug_exposure"
)
tableTopLargeScaleCharacteristics(result)
cdmDisconnect(cdm)
}
Run the code above in your browser using DataLab