2010-09-06 90 views

回答

0

使用PerformanceAnalytics函數Return.annualized表明

  1. PerformanceAnalytics確實與zoo對象一起工作(實際上在手冊中用作示例的manager數據集原來是一個下面的代碼示例zoo object)
  2. 應該可以將zoo對象轉換爲ts對象並獲得相同的結果

所以,如果你仍然有問題,則需要說明其更詳細

> library(PerformanceAnalytics) 
> library(zoo) 
> 
> set.seed(1) 
> x.date <- as.Date(paste(2003, 2, c(1, 3, 7, 9, 14), sep = "-")) 
> xzoo <- zoo(runif(5), x.date) 
> xzoo 
2003-02-01 2003-02-03 2003-02-07 2003-02-09 2003-02-14 
0.2655087 0.3721239 0.5728534 0.9082078 0.2016819 
> is.ts(xzoo) 
[1] FALSE 
> is.zoo(xzoo) 
[1] TRUE 
> Return.annualized(xzoo) 
         [,1] 
Annualized Return 193340828 
> 
> xts <- as.ts(xzoo) 
> xts 
Time Series: 
Start = 12084 
End = 12097 
Frequency = 1 
[1] 0.2655087  NA 0.3721239  NA  NA  NA 0.5728534  NA 0.9082078 
[10]  NA  NA  NA  NA 0.2016819 
> is.ts(xts) 
[1] TRUE 
> is.zoo(xts) 
[1] FALSE 
> Return.annualized(xts) 
         [,1] 
Annualized Return 193340828