смазывает работу с apply.daily

Question

Я пытаюсь понять из этого примера, можно ли применять lubridate для применения. Ежедневно, но не совсем понимаю, как это сделать.могу ли я получить какую-либо ссылку на использование lubridate с apply.daily, чтобы я мог исключить выходные, используя apply.daily

Stackoverflow: неверная дата окончания недели с использованием функции to.weekly в пакете 'xts'

РЕДАКТИРОВАТЬ: используя пример Ричи Коттона в качестве руководства, я написал следующее:

> 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)