r - lubridate 中日期间隔的平均值

Question

如何获得润滑间隔对象的“平均值”(或更准确地说是中点)？我试过使用基本的 mean() 函数，但它返回了一个 double 值。

library(lubridate)   
ex = interval(ymd("2009-05-01"), ymd("2009-07-01"))
mean(ex)
[1] 5270400

Answer 1

一个选项是将开始日期添加到 interval 持续时间的一半。试用:

ex@start + as.duration(ex)/2
[1] "2009-05-31 12:00:00 UTC"