eeptools (version 1.2.2)

age_calc: Function to calculate age from date of birth.

Description

his function calculates age in days, months, or years from a date of birth to another arbitrary date. This returns a numeric vector in the specified units.

Usage

age_calc(dob, enddate = Sys.Date(), units = "months", precise = TRUE)

Arguments

dob

a vector of class Date representing the date of birth/start date

enddate

a vector of class Date representing the when the observation's age is of interest, defaults to current date.

units

character, which units of age should be calculated? allowed values are days, months, and years

precise

logical indicating whether or not to calculate with leap year and leap second precision

Value

A numeric vector of ages the same length as the dob vector

See Also

See also difftime which this function uses and mimics some functionality but at higher unit levels.

Examples

# NOT RUN {
a <- as.Date(seq(as.POSIXct('1987-05-29 018:07:00'), len=26, by="21 day"))
b <- as.Date(seq(as.POSIXct('2002-05-29 018:07:00'), len=26, by="21 day"))

age <- age_calc(a, units='years')
age
age <- age_calc(a, units='months')
age
age <- age_calc(a, as.Date('2005-09-01'))
age
# }