na.locf nhưng không làm trailing NA

Question

Tôi đã sau chuỗi thời gian

> 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 

Một thẳng na.locf cho tôi này:

> 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 

làm thế nào để tôi nhận được điều nà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 NA 
2011-09-13 NA 

Tôi không muốn quan sát cuối cùng được chuyển tiếp EXCEPT cho giá trị không còn thiếu cuối cùng .. tức là các NA không được thay thế. Cám ơn rất nhiều về sự giúp đỡ của bạn!

Answer 1

Sử dụng na.approx từ gói vườn thú (được tự động nạp bởi XTS):

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