# \donttest{
library(dplyr)
cdm <- mockOmopSketch()
result <- summariseInObservation(
cdm$observation_period,
output = c("person-days","record"),
ageGroup = list("<=40" = c(0, 40), ">40" = c(41, Inf)),
sex = TRUE
)
result |>
filter(variable_name == "Number person-days") |>
plotInObservation(facet = "sex", colour = "age_group")
PatientProfiles::mockDisconnect(cdm)
# }
Run the code above in your browser using DataLab