lubridate 中日期间隔的平均值

Question

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

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"