graph - R- programming- Error in get.current.chob() : improperly set or missing graphics device -

- 

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<-bbands@ta.values 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  )     }  }

when run code in r , "****error in get.current.chob() : improperly set or missing graphics device"****. 2-3 times output proper graph buy , sell signals indicated on graph when run code error gets displayed tried on different version of r-1.3 still error appears. in above code bbands<-addbbands(n=20,sd=2) appropriate? because when run code in individual lines same error gets displayed line too. want final output graph buy , sell points indicated @ respective points.

no, bbands <- addbbands(n=20,sd=2) not appropriate.

addbbands should called add bollinger bands already-existing graphics device created chartseries. can include directly in chartseries call:

library(quantmod) getsymbols("lt.ns") chartseries(lt.ns, ta="addbbands(n=20)", subset="2013-12-01::2014-12-01")

if want calculate bollinger bands, call ttr::bbands (which addbbands does).

bbands <- bbands(hlc(lt.ns), n=20, sd=2)

all other stuff you're doing can done couple calls addpoints, after constructing necessary objects plot.

# sells sell <- op(lt.ns) is.na(sell) <- which(!cl(lt.ns) > bbands$dn) addpoints(1:nrow(sell), sell, col='red', pch=19, cex=0.5) # buys buy <- op(lt.ns) is.na(buy) <- which(!cl(lt.ns) < bbands$up) addpoints(1:nrow(buy), buy, col='green', pch=19, cex=0.5)

but note buys , sells not mutually exclusive.

> head(cbind(buy,sell))            lt.ns.open lt.ns.open.1 2007-01-01     1445.9       1445.9 2007-01-02     1447.0       1447.0 2007-01-03     1458.0       1458.0 2007-01-04     1489.7       1489.7 2007-01-05     1500.0       1500.0 2007-01-08     1471.0       1471.0

Comments

Post a Comment

Popular posts from this blog

node.js - Mongoose: Cast to ObjectId failed for value on newly created object after setting the value -

-
this question has answer here: what's mongoose error cast objectid failed value xxx @ path “_id”? 7 answers even though has been asked many times because entity has no valid objectid field. i came across situation objectid set value can casted objectid still error. the schema: var serviceschema = parammongoose.schema({ servicename:{ type: parammongoose.schema.types.objectid , ref: 'servicenames',required:true } }); pseudo code: servicefromdb=new service({servicename:'some name'}); servicefromdb.servicename='000000000000000000000001'; servicefromdb.save(function(paramerror,paramdata){ if(paramerror){ console.log('but but...',servicefromdb,paramerror) } }); the output of code is: but but... { servicename: 000000000000000000000001, _id: 55079a90286f49280364f78b } { [casterror: cast objectid faile...
Read more

[C++][SFML 2.2] Strange Performance Issues - Moving Mouse Lowers CPU Usage -

-
i've been working on making 2d map editor past 2 weeks or so, , i've run strange problem. trying optimize code, example, making functions should've been functions begin with, did made cpu usage go through roof. i've tried commenting out different sections of code thought culprits (scrolling, rendering, other calculations) no avail. think issue might trying call things within different functions, sake of making modular possible, i'd functionality. the other major change i've made since file i'm comparing i've ported variables external cpp file, since having variables global makes lot easier use within different functions. simple issue, can't life of me understand why happens. with original code, around 2-3% cpu usage. new code, around 20-35%, but, if move mouse around, it'll drop around 6-8%. tl;dr: after trying optimize code using functions, i've somehow killed performance, , found strange quirk moving mouse reduces cpu usage.. /...
Read more

ios - Possible to get UIButton sizeThatFits to work? -

-
i have been using method of resizing uibuttons depreciated, , not robust. , other reasons, want sizethatfits work uibuttons. i've read online, i'm not sure if should work (seems working some, not others, difference maybe between style, i'm using custom). here simple test code recreate issue (i put in viewdidload test, shouldn't matter, , real code part of large project): uibutton *btn = [uibutton buttonwithtype:uibuttontypecustom]; [btn settitle:@"this test long title need word wrap more single line when displayed on tiny ipod in portrait view." forstate:uicontrolstatenormal]; btn.titlelabel.linebreakmode = uilinebreakmodewordwrap; // depreciated - nothing replace it? cgrect r = btn.frame; r.origin.x = 0; r.origin.y = 0; r.size.width = 320; r.size.height = [btn.titlelabel.text sizewithfont:btn.titlelabel.font constrainedtosize:cgsizemake(r.size.width,100000) linebreakmode:btn.titlelabel.linebreakmode].height; // returns approx 86 , changes correctly ...
Read more