# \donttest{
library(OmopSketch)
library(omock)
library(dplyr)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
result <- summariseTrend(
cdm = cdm,
event = c("condition_occurrence", "drug_exposure"),
episode = "observation_period",
interval = "years",
ageGroup = list("<=20" = c(0, 20), ">20" = c(21, Inf)),
sex = TRUE,
dateRange = as.Date(c("1950-01-01", "2010-12-31"))
)
plotTrend(result = result, facet = sex ~ omop_table, colour = c("age_group"))
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab