下面的代碼一直運行到最近。包TTR中的ROC函數會拋出一個錯誤:未使用的參數(na.pad = na.pad)
library("quantmod")
library("PerformanceAnalytics")
library("ggplot2")
library("fPortfolio")
library("fAssets")
library("reshape2")
library("corrplot")
library("gridExtra")
library("dplyr")
Data_SP <- new.env()
### Download the data from yahoo finance
SP_tickers<-c("SPY","AAGPX","AUIAX","BHBFX","CABDX","CGRWX","EHSTX","HDGYX","KDCAX","LEIFX","NBPBX","OLVAX","PGRWX")
start.time<-proc.time()
getSymbols(SP_tickers, from="1998-12-29", env=Data_SP)
Returns <- eapply(Data_SP, function(s) ROC(Ad(s), type="discrete"))
proc.time()-start.time
的系統恢復,出現以下錯誤:
Error in lag(x, n, na.pad = na.pad) : unused argument (na.pad = na.pad)
任何建議如何得到上面的再次合作?
(因爲該錯誤出現的所有軟件包已更新)
下面回溯:
4 lag(x, n, na.pad = na.pad)
3 ROC(Ad(s), type = "discrete")
2 FUN(list(structure(c(20.7, 20.57, 20.49, 20.52, 20.76, 21.2,
21.22, 21.42, 21.21, 20.84, 20.73, 20.27, 20.74, 20.83, 20.84,
20.57, 20.35, 20.41, 20.53, 20.3, 20.6, 20.82, 20.62, 20.48,
20.62, 20.35, 20.32, 20.32, 20.01, 20.1, 20.39, 20.1, 20.28, ...
1 eapply(Data_SP, function(s) ROC(Ad(s), type = "discrete"))
您對所有這些非基本功能使用哪些軟件包?請包含所有適當的'library()'調用以使您的示例[reproducible](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)。 – MrFlick 2014-10-28 05:51:28
@MFFlick謝謝!增加了庫 – 2014-10-28 06:00:17