if (FALSE) {
library(CohortCharacteristics)
library(omock)
library(DrugUtilisation)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
cdm <- generateIngredientCohortSet(
cdm = cdm,
name = "my_cohort",
ingredient = c("acetaminophen", "morphine", "warfarin")
)
timings <- summariseCohortTiming(cdm$my_cohort)
plotCohortTiming(
timings,
timeScale = "years",
uniqueCombinations = FALSE,
facet = c("cdm_name", "cohort_name_reference"),
colour = c("cohort_name_comparator")
)
plotCohortTiming(
timings,
plotType = "densityplot",
timeScale = "years",
uniqueCombinations = FALSE,
facet = c("cdm_name", "cohort_name_reference"),
colour = c("cohort_name_comparator")
)
cdmDisconnect(cdm = cdm)
}
Run the code above in your browser using DataLab