Soggiorno Inverno (Dez, Jan, febbraio) dalle serie temporali quotidiane (zoo)

Question

Ho uno zoo quotidiano (XTS) con alcuni decenni di dati nel seguente formato:

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

E vorrei tracciare solo dati invernali (i mesi interi di dicembre, gennaio e febbraio). Ho trovato il sottoinsieme per XTS, quindi ho pensato di poter estrarre tutti i defunti usando:

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

E poi fai qualcosa di simile per Jan e Feb, ma ottengo il seguente errore:

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

Posso usare il apply.yearly e last(almorol, "1 month") separatamente ma quando li combino non funziona. Qualcuno sa un modo di sottolineare quei 3 mesi delle serie temporali? Grazie dell'aiuto!

Answer 1

Prova questo:

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