R nei giorni feriali XTS

Question

Come impostare un sottoinsieme di un oggetto xts per includere solo i giorni della settimana (lun-ven, con sabato e domenica esclusi)?

Answer 1

Ecco cosa farei:

library(xts) 
data(sample_matrix) 
sample.xts <- as.xts(sample_matrix, descr='my new xts object') 
x <- sample.xts['2007'] 
x[!weekdays(index(x)) %in% c("Saturday", "Sunday")] 

---

EDIT: Joshua Ulrich nei commenti indica una soluzione migliore utilizzando .indexwday(), uno di una famiglia di built-in funzioni di accesso per l'estrazione pezzi dell'indice degli oggetti di classe xts. Inoltre, come soluzione di Dirk Eddelbuettel, il seguente dovrebbe essere locale indipendente:

x[.indexwday(x) %in% 1:5] 

Answer 2

Calcolando il giorno della settimana data la data e la composizione. Nell'esempio, utilizzo un tipo Date ma il cast su POSIXlt funziona allo stesso modo per POSIXct timestamp intra-day.

> mydates <- Sys.Date() + 0:6 
> mydates 
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-04" 
+ "2012-02-05" "2012-02-06" 
> we <- sapply(mydates, function(d) { as.POSIXlt(d)$wday}) %in% c(0, 6) 
> we 
[1] FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE 
> mydates[ ! we ] 
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-06" 
>  

Questa non è una domanda xts ma la gestione di base della data.