找不到提取函数- PerformanceAnalytics已加载

Question

我得到了“找不到提取函数”的错误。我已经加载了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

> 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库时，我不知道为什么无法找到提取函数的错误消息。

Answer 1

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

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价格在2014年对AAPL的拆分进行了修正，而开放价格没有进行调整。