الجمعة 1 مايو، 2009 مؤشر القوة النسبية (2) مع الوظيفة تحجيم على الرغم من انها بعد أكثر من أسبوعين، وهنا المنصب الثاني في هذه السلسلة التي سوف تظهر كيفية بناء واختبار وتنفيذ استراتيجية التداول مع R. يمكنك العثور على أول وظيفة هنا. تكرارها أول وظيفة هذا مؤشر القوة النسبية (2) استراتيجية بسيطة من MarketSci المدونة. سوف تظهر هذه الوظيفة الثانية كيفية تكرار هذه الاستراتيجية أن موازين في / من مؤشر القوة النسبية (2). ويشير الزوجين قبل أن ينتقل إلى رمز: وظيفة rsi2pos () ليست ضرورية. ولكنه يوفر مثالا على كيفية تعريف دالة. بالاضافة الى ذلك، تمكننا من اختبار العديد من الأفكار مع أكبر بكثير السرعة والمرونة. وظيفة ifelse () يعمل على ناقلات كلها في وقت واحد، وتجنب الحلقات مكلفة (الحلقات مكلفة في R لأنها لغة مفسرة). وبما أننا يحتمل يمكن تعديل كامل "حجم" ناقلات، يجب علينا أن نفكر في أمر من الاختبارات. إلى رمز! # إرفاق quantmod وحزم فريق العمل المعني بالموارد. # يمكنك تثبيت الحزم عن طريق: # install. packages (ج ("quantmod"، "فريق العمل المعني بالموارد")) مكتبة (quantmod) مكتبة (TTR) # بيانات مؤشر SP500 سحب من ياهو! getSymbols ("^ الجماعة السلفية"، من = "2000-01-01"، ل= "2008-12-07") # دائرة الهجرة والجنسية. ناقلات مؤشر حجم العلامة & lt؛ - ifelse (دائرة الهجرة والجنسية العلامة & lt؛ 4 * indIncr، (1-posIncr * 3)، حجم) حجم العلامة & lt؛ - ifelse (دائرة الهجرة والجنسية العلامة & lt؛ 3 * indIncr، (1-posIncr * 2)، حجم) حجم العلامة & lt؛ - ifelse (دائرة الهجرة والجنسية العلامة & lt؛ 2 * indIncr، (1-posIncr * 1)، حجم) حجم العلامة & lt؛ - ifelse (دائرة الهجرة والجنسية وGT؛ 100-4 * indIncr، 3 * posIncr-1، حجم) حجم العلامة & lt؛ - ifelse (دائرة الهجرة والجنسية وGT؛ 100-3 * indIncr، 2 * posIncr-1، حجم) إشارات # حساب باستخدام 'rsi2pos) (' وظيفة سيج العلامة & lt؛ - rsi2pos (RSI، 5، 0.25) # تندلع طويلة (تصل) والقصيرة (DN) إشارات sigup العلامة & lt؛ - ifelse (سيج & GT؛ 0، سيج، 0) sigdn العلامة & lt؛ - ifelse (سيج العلامة & lt؛ 0، سيج، 0) # حساب منحنيات الأسهم إشارات # حساب باستخدام 'rsi2pos) (' وظيفة # مع قيم جديدة سيج العلامة & lt؛ - rsi2pos (RSI، 10، 0.3) # تندلع طويلة (تصل) والقصيرة (DN) إشارات sigup العلامة & lt؛ - ifelse (سيج & GT؛ 0، سيج، 0) sigdn العلامة & lt؛ - ifelse (سيج العلامة & lt؛ 0، سيج، 0) # حساب منحنيات الأسهم