아래 코드는 최근까지만 사용되었습니다.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"))
이러한 모든 비 기본 기능에 어떤 패키지를 사용하고 있습니까? 귀하의 예를 [reproducible] (http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)하기 위해 모든 적절한'library()'호출을 포함하십시오. – MrFlick
@MrFlick 감사합니다! 라이브러리 추가 –