サブセット化時にxtsオブジェクトがxtsクラスを失う

Question

以下を考慮してください。

[1] "xts" "zoo" 

が、第三の結果：

[1] "zoo" 

なぜ

junk1.xts <- xts(c(0:10), as.yearqtr("1975 Q1") + 0.25*(0:10)) 
junk2.xts <- xts(c(30:0), as.yearqtr("1970 Q1") + 0.25*(0:30)) 
junk2a.xts <- junk2.xts[index(junk1.xts),] 
class(junk1.xts) 
class(junk2.xts) 
class(junk2a.xts) 

最初の2つのクラスステートメントがもたらしますか？これは正常なのかバグですか？それを防止し、3番目のオブジェクトのxtsクラスを保持する最良の方法は何ですか？

Answer 1

問題が見つかりました。私は、Hmiscの後にモデル化されたラベリング機能をxtsオブジェクトに追加しようとしています。その際、私は[.xtsの関数を定義していました。それは当初は機能しましたが、効率を少し変えました。そのうちの1人が機能を破った。

ご迷惑をおかけします。