# \donttest{
library(omock)
library(OmopSketch)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
summarisedResult <- summariseRecordCount(
cdm = cdm,
omopTableName = "condition_occurrence",
ageGroup = list("<=20" = c(0, 20), ">20" = c(21, Inf)),
sex = TRUE
)
plotRecordCount(
result = summarisedResult,
colour = "age_group",
facet = sex ~ .
)
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab