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

  लाइब्रेरी (quantmod) getSymbols ("LT.NS") प्लॉट (एलटीएनएस ["2013-12- 01 :: 2014-12-01 "]) बंद करें & lt; -Cl (एलटीएनएस [" 2013-12-01 :: 2014-12-01 "]) ओपन एंड एलटी; -ओप (एलटीएनएस [" 2013-12- 01: 2014-12-01 "]) बंद करें & lt; -as.matrix (close) खुला & lt; -एमैट्रिक्स (खुला) bbands & lt; -addBBands (n = 20, sd = 2) values_bbands & lt; -bbands@TA.values मूल्य_बैंड्स [is.nna (values_bbands)] & lt; -0 bbands & lt; -as.matrix (values_bbands) अप & lt; -bands [, 1] ऊपर & lt; -as.matrix (ऊपर) नीचे & lt; -bands [, 3] नीचे & lt; - As.matrix (डाउन) डेटा & lt; -read.table ("c: \\ temp \\ dates.txt") (आंकड़े) सिर (डेटा) स्टॉक & lt; -a.matrix (डेटा) के लिए (मैं 131: 261 में) ) {If (close [i] & gt; नीचे [i]) {प्रिंट ("बिक्री की तारीख है:") प्रिंट (i) big.red.dot & lt; - xts (खुला [i], as.Date (स्टॉक [I, 1])) अंक (बड़ा.एडिट.डॉट, कोल = "लाल", पीपी = 1 9, सीएक्स = 0.5)} अगर (बंद [आई] & lt; up [i]) {प्रिंट (" है: ") प्रिंट (i) big.green.dot & lt; - xts (खुले [i], as.Date (स्टॉक [i, 1])) अंक (big.green.dot, Col = "green", pch = 19, cex = 0.5)}}  

जब मैं आर में यह कोड चलाता हूं, मुझे "get.current.chob में त्रुटि मिलती है" ): अनुचित तरीके से सेट या अनुपलब्ध ग्राफिक्स डिवाइस "****। 2-3 बार मुझे ग्राफ़ पर दर्शाए गए संकेतों को खरीदने और बेचने के साथ उचित ग्राफ के साथ एक आउटपुट प्राप्त हो सकता है, लेकिन अब जब मैं कोड चलाता हूं तो यह त्रुटि प्रदर्शित होती है, मैं इसे आर -3 के एक अलग संस्करण पर भी चलाया, फिर भी त्रुटि दिखाई देती है। मेरे उपरोक्त कोड में bbands & lt; -addBBands (n = 20, sd = 2) उपयुक्त हैं? क्योंकि जब मैं व्यक्तिगत कोड में अपना कोड चलाता हूं, तो इसी त्रुटि को भी इस लाइन के लिए प्रदर्शित किया जाता है। मैं चाहता हूं कि अंतिम आउटपुट को संबंधित बिंदुओं पर दर्शाए गए खरीदने और बेचने के अंक के साथ एक ग्राफ हो।

नहीं < Code> bbands & lt; - addBBands (n = 20, sd = 2) उपयुक्त नहीं है।

addBBands को बोलिन्जर बैंड को पहले से ही- chartSeries द्वारा बनाए गए मौजूदा ग्राफिक्स उपकरण। आप इसे अपने chartSeries कॉल में सीधे भी शामिल कर सकते हैं:

  लाइब्रेरी (quantmod) getSymbols ("एलटीएनएस") चार्टसीरीज (एलटीएनएस, टीए = "एडबी बैंड (एन = 20) ", सबसेट =" 2013-12-01 :: 2014-12-01 ")  

यदि आप बोलिंगर बैंड की गणना करना चाहते हैं, तो बस कॉल करें TTR :: BBands (जो कि addBBands करता है)।

  bbands & lt; - BBands (एचएलसी (एलटीएनएस), एन = 20, एसडी = 2)  

आप जिस अन्य चीज को कर रहे हैं, उसे कुछ कोड के साथ किया जा सकता है, जिसे addPoints को साजिश के लिए आवश्यक वस्तुओं का निर्माण करने के बाद कॉल किया जा सकता है।

  # विक्रय बेचता है & lt; - विपक्ष (एलटीएनएस) is.na (बेचते हैं) & lt; - जो (! Cl (LT.NS) & gt; bbands $ dn) addPoints (1: nrow (sell) ), खरीदें, कॉल = 'लाल', पीपी = 1 9, सीईएक्स = 0.5) # खरीदता है और खरीदें; - विपक्ष (एलटीएनएस) है। एनए (खरीद) & lt; - जो (! सीएल (एलटीएनएनएस) & lt; Bbands $ up) addPoints (1: नेव (खरीदने), खरीद, col = 'green', pch = 19, cex = 0.5)  

लेकिन ध्यान दें कि आपके खरीद और बेचते हैं पारस्परिक रूप से नहीं हैं अनन्य।

  & gt; सिर (सीबिंड (खरीदें, बेचना)) एलटी.एनएस.ऑन 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