lubridate 与 apply.daily 一起工作吗

Question

我试图从这个例子中了解 lubridate 是否可以应用于 apply.daily 但不太明白如何做到这一点。 我可以获得有关将 lubridate 与 apply.daily 一起使用的参考，以便我可以使用 apply.daily 排除周末

Stackoverflow：在“xts”包中使用“to.weekly”函数的周末结束日期错误

编辑：使用 Richie以棉花的例子为指导，我写了以下内容：

> is.weekend <- function(x) {

+    w <- as.POSIXlt(x)

+    w %in% c(1,7)

+ }

> apply.daily(core[!is.weekend(x)],dfun)

Error in as.POSIXlt.default(x) :

  do not know how to convert 'x' to class "POSIXlt"

> apply.daily(core[!is.weekend(index(x))],dfun)

Error in as.POSIXlt.numeric(x) : 'origin' must be supplied

> alpha <- core[!is.weekend(index(x))]

Error in as.POSIXlt.numeric(x) : 'origin' must be supplied

> 

我的错误在哪里？我错过了某个特定的图书馆吗？

Answer 1

创建您的时间序列。

x <- today() + hours(0:(24 * 14))
time_series <- xts(rnorm(length(x)), x)

编写一个函数来检查日期是否发生在周末。

is.weekend <- function(x)
{
  day_of_week <- wday(x, label = TRUE)
  day_of_week %in% c("Sat", "Sun")
}

从您对 apply.daily 的调用中排除这些内容。

apply.daily(time_series[!is.weekend(x)], max)