我在处理外汇汇率的每小时数据时遇到问题。我通过以下方式从 csv 文件中读取:
csv 文件,如:
Date,Open,High,Low,Close,Volume
2011-08-11 03:00:00,1.41758,1.42205,1.41625,1.42174,8974
...
2011-08-12 04:00:00,1.42175,1.42413,1.42067,1.42172,7229
...
2011-12-30 05:00:00,1.42173,1.42341,1.42062,1.42171,6703
...
raw<- read.delim2("~/R/Data/EURUSD60.csv",header=TRUE,sep=",")
stripday<-strptime(raw$DATE,format="%Y%m%d")
fxdata<-data.frame(stripday,raw)
write.table(fxdata,"~/R/Data/EURUSD60.csv",quote=FALSE,sep=",",row.names=FALSE)
EURUSD<-as.xts(read.zoo("~/R/Data/EURUSD60.csv",sep=",",format="%Y-%m-%d %R",tz="GMT",header=T))
然后我设置了几个指标和以下模型:
myATR <- function(x) ATR(HLC(x))[,'atr']
mySMI <- function(x) SMI(HLC(x))[,'SMI']
myADX <- function(x) ADX(HLC(x))[,'ADX']
myAroon <- function(x) aroon(x[,c('High','Low')])$oscillator
myBB <- function(x) BBands(HLC(x))[,'pctB']
myChaikinVol<-function(x)Delt(chaikinVolatility(x[,c("High","Low")]))[,1]
myCLV <- function(x) EMA(CLV(HLC(x)))[,1]
myMACD <- function(x) MACD(Cl(x))[,2]
mySAR <- function(x) SAR(x[,c('High','Close')]) [,1]
myVolat <- function(x) volatility(OHLC(x),calc="garman")[,1]
myEMA10 <- function(x) EMA(Cl(x),n=10)[,1]
myEMA20 <- function(x) EMA(Cl(x),n=20)[,1]
myEMA30 <- function(x) EMA(Cl(x),n=30)[,1]
myEMA50 <- function(x) EMA(Cl(x),n=50)[,1]
myEMA60 <- function(x) EMA(Cl(x),n=60)[,1]
data.model <- specifyModel(Delt(Cl(EURUSD)) ~
myATR(EURUSD) + mySMI(EURUSD) + myADX(EURUSD) + myAroon(EURUSD) +
myBB(EURUSD) + myChaikinVol(EURUSD) + myCLV(EURUSD) +myEMA10(EURUSD) +myEMA20(EURUSD) +myEMA30(EURUSD) +myEMA50(EURUSD) + myEMA60(EURUSD) +
CMO(Cl(EURUSD)) + EMA(Delt(Cl(EURUSD))) +
myVolat(EURUSD) + myMACD(EURUSD) + RSI(Cl(EURUSD)) +
mySAR(EURUSD) + runMean(Cl(EURUSD)) + runSD(Cl(EURUSD)))
然后我尝试执行以下操作:
Tdata.train <- as.data.frame(modelData(data.model,
data.window=c('2011-08-03','2011-12-30')))
这给了我以下错误:
Warnings:
1: In which(index(model.data) >= as.Date(data.window[1], origin = "1970-01-01")) :
incopatible methods ("Ops.POSIXt", "Ops.Date") für ">="
2: In which(index(model.data) <= as.Date(data.window[2], origin = "1970-01-01")) :
incopatible methods ("Ops.POSIXt", "Ops.Date") für "<="
3: In max(i) : kein nicht-fehlendes Argument für max; gebe -Inf zurück
有人可以请告诉我我做错了什么吗?我想这是非常简单的事情,我在这里很愚蠢。非常感谢各位!!!