Return.Calculate関数を使用した複合返品価格

Question

以下のサンプルデータがあり、以下の価格から複合返品を計算しようとしています。

Return.calculate(sample_data$Price, method = "compound") 

をしかし、次のエラーを取得：

sample_data <- data.frame(Date = c ("2017-01-31", "2017-02-28", "2017-03-31", 
           "2017-04-30", "2017-05-31", "2017-06-30"), 
         stock = c("a", "a", "a","a", "a", "a"), 
         Price = c(10, 11, 17, 12, 13, 14)) 

は私のようなReturn.calculateパッケージを使用して 'xtsAttributes < - ' の

なし適用可能な方法のオブジェクトに適用 クラス "動物園"

Answer 1

xtsオブジェクトとしてデータを渡す必要があります。数字のみの変数が含まれるようにxtsへの変換中には注意してください - reason here - それはそれは唯一sample_data$Price

library(xts) 
library(PerformanceAnalytics) 
sample_data$Date <- as.Date(sample_data$Date) 
sample_data_xts <- xts(sample_data$Price, order.by = sample_data$Date) 

Return.calculate(sample_data_xts, method = "compound") 

#     [,1] 
# 2017-01-31   NA 
# 2017-02-28 0.09531018 
# 2017-03-31 0.43531807 
# 2017-04-30 -0.34830669 
# 2017-05-31 0.08004271 
# 2017-06-30 0.07410797 

を変換することが可能です理由です