hiver jeux partiels (Dez, janvier, février) de la série de temps par jour (zoo)

Question

J'ai un zoo tous les jours (XTS) avec quelques décennies de données dans le format suivant:

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

et je voudrais tracer simplement des données d'hiver (les mois complets de Décembre, Janvier et Février). J'ai trouvé la subsetting pour XTS donc je pensais que je pouvais extraire tous les décembres en utilisant:

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

et puis faire quelque chose de similaire pour Jan et en février, mais je reçois l'erreur suivante:

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

Je peux utiliser la apply.yearly et last(almorol, "1 month") séparément, mais quand je les combine, il ne fonctionne pas. Est-ce que quelqu'un connait un moyen de ces 3 mois de sous-ensembles de la série chronologique? Merci de nous aider!

Answer 1

Essayez ceci:

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