Differenza oraria negli anni con lubridate?

Question

Vorrei utilizzare lubridate per calcolare l'età in anni data la loro data di nascita e la data odierna. In questo momento ho questo:

library(lubridate) 
today<-mdy(08312015) 
dob<-mdy(09071982) 
today-dob 

che mi dà la loro età in giorni.

Answer 1

Questo è l'approccio lubridate vorrei prendere:

new_interval(dob, today)/years(1) 

rendimenti la risposta di 32 anni.

Si noti che la funzione si lamenterà che non può esprimere il resto della frazione dell'anno. Questo perché l'anno non è un concetto fisso, vale a dire 366 anni bisestili e 365 anni non bisestili. È possibile ottenere una risposta con maggiori dettagli per quanto riguarda il numero di settimane e giorni:

interval_period = new_interval(dob, today) 
full_year = interval_period %/% years(1) 
remaining_weeks = interval_period %% years(1) %/% weeks(1) 
remaining_days = interval_period %% years(1) %% weeks(1) %/% days(1) 
sprintf('Your age is %d years, %d weeks and %d days', full_year, remaining_weeks, remaining_days) 
# [1] "Your age is 32 years, 51 weeks and 1 days" 

Nota che uso %/% per la divisione e %% come modulo per ottenere le rimanenti settimane/giorni dopo aver sottratto i pieni anni/settimane .

Answer 2

Questo darà un messaggio che è solo una stima perché non tiene conto della data di inizio esatta e della data di fine.

Answer 3

as.duration(interval(dob,today)) %/% as.duration(years(1)) 

dovrebbe fare il lavoro senza errori.