使用PerformanceAnalytics的问题

Question

我在使用performanceanalytics包中的CAPM函数时遇到了以下问题。

代码如下：

LI <- apply(FP.CAR,1,mean, na.rm=TRUE)) 
LA <- window(datensatz_Markt.GGI.D, start=as.Date("2009-06-01"), end=as.Date("2009-11-01")))
#LI and LA are both simple zoo-objects with the content:

> LI
                   [,1]
2009-06-01 -0.031655213
2009-07-01  0.021612896
2009-08-01 -0.078864013
2009-09-01  0.012067940
2009-10-01 -0.028619972
2009-11-01 -0.006347962
> LA
                   [,1]
2009-06-01  0.076531901
2009-07-01  0.047163872
2009-08-01  0.041954638
2009-09-01  0.027973415
2009-10-01  0.046670947
2009-11-01 -0.007938671

通过应用计算CAPM的函数，我得到了一个错误或无结果：

> CAPM.beta(LI,LA,0)
[1] NA

> CAPM.alpha(LI,LA,0)
Fehler in `[.data.frame`(merged, , 2) : undefined columns selected

> CAPM.CML(LI,LA,0)
[1] -0.02594791

> CAPM.RiskPremium(LI,0)
                            [,1]
Risk Premium (Rf=0%) -0.01863439

你有什么建议可能是错误的地方吗？

Answer 1

我通过重新创建一个时间序列对象(在本例中是xts)解决了这个问题。请参阅附件中的代码。

LI <- data.frame(apply(HP.CAR,1,mean, na.rm=TRUE)) 
LA <- data.frame(window(datensatz_Markt.GGI.D, start=as.Date("2009-06-01"), end=as.Date("2009-11-01")))
LI.xts <- xts(LI,as.Date(rownames(LI)))
LA.xts <- xts(LA,as.Date(rownames(LA)))

但这不是真正的解决方案？！？

如果能有进一步的评论，我将不胜感激。