library(quantmod)
getSymbols("LT.NS")
plot(LT.NS["2013-12-01::2014-12-01"])
close<-Cl(LT.NS["2013-12-01::2014-12-01"])
open<-Op(LT.NS["2013-12-01::2014-12-01"])
close<-as.matrix(close)
open<-as.matrix(open)
bbands<-addBBands(n=20,sd=2)
values_bbands<[email protected]
values_bbands[is.na(values_bbands)]<-0
bbands<-as.matrix(values_bbands)
up<-bbands[,1]
up<-as.matrix(up)
down<-bbands[,3]
down<-as.matrix(down)
data<-read.table("c:\\temp\\dates.txt")
attach(data)
head(data)
stock<-as.matrix(data)
for(i in 131:261)
{
if(close[i]>down[i])
{
print("the selling date is:")
print(i)
big.red.dot <- xts(open[i], as.Date(stock[i,1]))
points(big.red.dot, col="red", pch=19, cex=0.5 )
}
if(close[i]<up[i])
{
print("the buying date is:")
print(i)
big.green.dot <- xts(open[i], as.Date(stock[i,1]))
points(big.green.dot, col="green", pch=19, cex=0.5 )
}
}
Когда я запускаю этот код в R, я получаю «****Ошибка в get.current.chob(): неправильно установлено или отсутствует графическое устройство»****. 2-3 раза я мог получить вывод с правильным графиком с сигналами покупки и продажи, указанными на графике, но теперь, когда я запускаю код, эта ошибка отображается, я попробовал это и на другой версии R-1.3, все равно появляется ошибка. Подходит ли в приведенном выше коде bbands‹-addBBands(n=20,sd=2)? Потому что, когда я запускаю свой код в отдельных строках, для этой строки отображается та же ошибка. Я хочу, чтобы конечный результат представлял собой график с точками покупки и продажи, указанными в соответствующих точках.
