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)? Защото, когато стартирам кода си в отделни редове, същата грешка се показва и за този ред. Искам крайният изход да бъде графика с точки за покупка и продажба, посочени в съответните точки.
