dob2age(lubridate::as_date("1990-01-01"))
dob2age(
dob = c(
lubridate::as_date("1990-01-01"),
lubridate::as_date("1994-01-01"),
lubridate::as_date("1998-01-01")
),
age_on = lubridate::as_date("2002-12-31"),
fun = floor
)
Run the code above in your browser using DataLab