# \donttest{
library(OmopSketch)
library(dplyr, warn.conflicts = FALSE)
library(omock)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
result <- summariseInObservation(
observationPeriod = cdm$observation_period,
interval = "years",
output = c("person-days", "record"),
ageGroup = list("<=60" = c(0, 60), ">60" = c(61, Inf)),
sex = TRUE
)
result |>
tableInObservation()
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab