r - R: パフォーマンス分析のドローダウン機能が機能しない

Question

この再現可能な例は AAPL で作成しましたが、他のデータを使用しています。しかし、構造はまったく同じです。このブログ エントリのように、自分のデータについて同様のレポートを作成しようとしています。

RとKnitrによる取引戦略のパフォーマンスレポート

私のコード:

require(quantmod)
require(PerformanceAnalytics)
getSymbols("AAPL")
AAPL.DF<-data.frame(Date=index(AAPL), coredata(AAPL[,1]))
AAPL.DF[,2]<-ROC(AAPL.DF[,2])
colnames(AAPL.DF)<-c("Date","rtn")
dailyRtn <- as.numeric(substring(AAPL.DF[,"rtn"],1,nchar(as.character(AAPL.DF[,"rtn"]))-1))
dailyDD <- as.vector(Drawdowns(dailyRtn/100))

最後の 2 行は、このブログ エントリで使用されている関数からコピーされたもので、PDF レポートの生成に使用しています。DailyRtn を使用した 8 行目が何をするのかよくわかりませんが、本当の問題は Drawdowns 関数についてです。常に次のエラーが表示されます。

Warning message:
In merge.zoo(fx, .xts(, .index(x))) :
  Index vectors are of different classes: integer POSIXct 

しかし、これは私の意見では意味がありません。行 8 は num シリーズのみを生成し、いかなる種類のインデックスも生成しません。Drawdowns 関数を「F2」した場合、merge.zoo の使用が見つかりません。エラーはどこにありますか?