r - 如何计算两个日期之间的周差？

Question

如何使用 lubridate 函数计算 2 个日期之间的周差？

Answer 1

一种专门使用 lubridate 包来做到这一点的方法:

library(lubridate)

# Create sample interval
> span <- interval(as.POSIXct("2000-01-01"), as.POSIXct("2016-01-01"))
> span
[1] 2000-01-01 PST--2016-01-01 PST

> t <- as.period(span, unit="day")
> t
[1] "5844d 0H 0M 0S"

> t / as.period(dweeks(1))
estimate only: convert durations to intervals for accuracy
estimate only: convert to intervals for accuracy
[1] 834.8571
>