# \donttest{
cdm <- mockPatientProfiles()
result <- cdm$cohort1 |>
addAge() |>
addCategories(
variable = "age",
categories = list("age_group" = list(
"0 to 39" = c(0, 39), "40 to 79" = c(40, 79), "80 to 150" = c(80, 150)
))
)
mockDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab