无法找到 Drawdowns 函数 - 已加载 PerformanceAnalytics

Question

我收到 'Could not find Drawdowns function' 错误。我已经加载了 PerformanceAnalytics 库。

代码：

install.packages("quantmod")
install.packages("PerformanceAnalytics")
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))

下面是控制台中的 o/p window

> getSymbols("AAPL")
[1] "AAPL"
Warning message:
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m,  :
  downloaded length 109721 != reported length 200
> 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))
Error in as.vector(Drawdowns(dailyRtn/100)) : 
  could not find function "Drawdowns"

我不明白为什么我在成功安装和加载 PerformanceAnalytics 库后收到无法找到 Drawdowns 函数的错误消息

Answer 1

没有提款功能。根据您正在做的事情，您可能对使用 findDrawdowns 或 chart.Drawdown 感兴趣。您还可以稍微简化代码以计算 returns，如下所示：

require(quantmod)
require(PerformanceAnalytics)
getSymbols("AAPL")
#  calculate returns based on Adjusted Close prices
AAPL.DF <- Return.calculate(AAPL[,6])[-1,]
dailyDD <- findDrawdowns(AAPL.DF)
chart.Drawdown(AAPL.DF)

我在您的原始代码中使用了 Adjusted_Close 价格（AAPL 第 6 列）而不是开盘价（AAPL 第 1 列），因为 Addjusted_Close 价格已针对 AAPL 的拆分进行了更正2014年开盘价未调整

无法找到 Drawdowns 函数 - 已加载 PerformanceAnalytics

Could not find Drawdowns function - PerformanceAnalytics loaded

r

performanceanalytics