Oggetto xts diviso per intervalli irregolari specificati in R

Question

Voglio dividere un oggetto xts giornaliero in 4 settimane separate che corrispondono ai seguenti giorni del mese: 1 ° -7 °, 8 ° -14 °, 15 ° -21 ° e 22 ° al fine del mese, dove l'ultima settimana sarà generalmente più lunga (ma va bene!).

Ecco qualche esempio di codice di un oggetto XTS per gennaio 2004 creato da una sequenza di date:

week <- seq(from=as.Date("2004-01-01"), to=as.Date("2004-01-31"), by = "day") 
x2 <- sample(1:50, 31) # generating 31 random numbers 
January_series <- xts(x2, order.by=week) # create January daily series 

Il problema è che 1 gennaio non si verifica su un Domenica modo split.xts non significa necessariamente fare ciò che Voglio.

Inizialmente pensavo di poter creare quattro intervalli corrispondenti a quei giorni indicati sopra, ma non so se sia l'approccio giusto.

C'è un modo per suddividere un oggetto xts in base agli intervalli che hai creato?

Answer 1

È possibile utilizzare .indexmday per ottenere il giorno del mese per ogni osservazione nell'oggetto xts. Quindi utilizzare cut per definire gli intervalli da dividere per.

intervals <- cut(.indexmday(January_series), c(0,7,14,21,31), paste0("W",1:4)) 
splitlist <- split(January_series, intervals)