Subetting Winter (Dez, Jan, Februar) aus der Daily Time Series (Zoo)

Question

Ich habe einen täglichen Zoo (XTS) mit einigen Jahrzehnten Daten im folgenden Format:

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

Und ich möchte nur Winterdaten (die vollen Monate Dezember, Januar und Februar) zeichnen. Ich fand die Teilmenge für XTs, also dachte ich, ich könnte alle Dezader mithilfe voneinander extrahieren:

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

Und dann machen Sie etwas Ähnliches für Jan und Februar, aber ich erhalte den folgenden Fehler:

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

Ich kann das verwenden apply.yearly und last(almorol, "1 month") getrennt, aber wenn ich sie kombiniere, funktioniert es nicht. Kennt jemand einen Weg, diese 3 Monate der Zeitreihe zu unterteilen? Danke fürs Helfen!

Answer 1

Versuche dies:

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