# \donttest{
library(dplyr)
library(OmopSketch)
library(omock)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
result <- summariseTrend(cdm,
episode = "observation_period",
output = c("person-days", "record"),
interval = "years",
ageGroup = list("<=40" = c(0, 40), ">40" = c(41, Inf)),
sex = TRUE
)
plotTrend(
result = result,
output = "record",
colour = "sex",
facet = "age_group"
)
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab