Calculer proprement un âge sous R

# Age function
age <- function(dob, doe) {
  if (!require(lubridate))
    stop("lubridate package is required")
  time_length(interval(dob, doe), unit = "years")
}