Подмножество зимы (Dez, январь, февраль) из Daily Time -ряд (зоопарк)

Question

У меня есть ежедневный зоопарк (XTS) с несколькими десятилетиями данных в следующем формате:

head(almorol)
1973-10-02 1973-10-03 1973-10-04 1973-10-05 1973-10-06 1973-10-07
     183.9      208.2      153.7       84.8       52.5       35.5

И я хотел бы построить только зимние данные (полные месяцы декабря, января и февраля). Я нашел подмножество для XTS, поэтому я подумал, что смогу извлечь все декабрь, используя:

x<-apply.yearly(almorol, FUN=last(almorol, "1 month"))

А потом сделайте что -то подобное для Янва и февраля, но я получаю следующую ошибку:

Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found

Я могу использовать apply.yearly а также last(almorol, "1 month") отдельно, но когда я их комбинирую, это не работает. Кто -нибудь знает способ увеличить эти 3 месяца временных рядов? Спасибо за помощь!

Answer 1

Попробуй это:

z.winter <- z[months(time(z), TRUE) %in% c("Dec", "Jan", "Feb")]
plot(z.winter)