r - na.locfですが、後続のNAは実行しないでください

Question

次の時系列があります

> 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

まっすぐなna.locfは私にこれを与えます：

> 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

どうすればこれに到達できますか？

           [,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

最後の欠落していない値を除いて、最後の観測を繰り越したくありません。つまり、末尾のNAは置き換えられません。どうもありがとうございました！

Answer 1

na.approxZoo パッケージ (xts によって自動的に読み込まれる) から使用します。

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