如何使用lubridate函数计算两周内两个日期之间的差异?
答案 0 :(得分:2)
使用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
>
答案 1 :(得分:1)
我发现了一种不使用lubridate的简单方法:
t1 <- as.POSIXct("2000-01-01")
t2 <- as.POSIXct("2016-01-01")
as.double(difftime(t2,t1,unit="weeks"))
[1] 834.8571