润滑油中日期间隔平均值

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"

Answer 2

您可以使用int_start()和int_end()函数来计算间隔的中点：

library(lubridate)
int_start(ex) + (int_end(ex) - int_start(ex))/2
[1] "2009-05-31 12:00:00 UTC"

为了简单起见，您可以将它变成一个简单的函数：

int_midpoint <- function(interval) {
    int_start(interval) + (int_end(interval) - int_start(interval))/2
}

int_midpoint(ex)
[1] "2009-05-31 12:00:00 UTC"

此函数还将在向量上与lapply (虽然不是sapply)一起工作：

lapply(c(ex, ex), int_midpoint)
[[1]]
[1] "2009-05-31 12:00:00 UTC"

[[2]]
[1] "2009-05-31 12:00:00 UTC"