na.locf ma non faccio AN

Question

finale ho la seguente serie temporale

> y<- xts(1:10, Sys.Date()+1:10) 
> y[c(1,2,5,9,10)] <- NA 
> y 
      [,1] 
2011-09-04 NA 
2011-09-05 NA 
2011-09-06 3 
2011-09-07 4 
2011-09-08 NA 
2011-09-09 6 
2011-09-10 7 
2011-09-11 8 
2011-09-12 NA 
2011-09-13 NA 

Una scala na.locf dammi questo:

> na.locf(y) 
      [,1] 
2011-09-04 NA 
2011-09-05 NA 
2011-09-06 3 
2011-09-07 4 
2011-09-08 4 
2011-09-09 6 
2011-09-10 7 
2011-09-11 8 
2011-09-12 8 
2011-09-13 8 

Come faccio ad avere a questo?

  [,1] 
2011-09-04 NA 
2011-09-05 NA 
2011-09-06 3 
2011-09-07 4 
2011-09-08 4 
2011-09-09 6 
2011-09-10 7 
2011-09-11 8 
2011-09-12 NA 
2011-09-13 NA 

Non voglio ultima osservazione da riportare Fatta eccezione per l'ultimo non manca valore .. vale a dire le AN finali non vengono sostituiti. Grazie mille per il vostro aiuto!

Answer 1

Utilizzare na.approx dal pacchetto zoo (che è caricato automaticamente da xts):

na.approx(y, method = "constant", na.rm = FALSE)