vector - Vectorizing diff function on lags in R -
मैं एक ऐसा कार्य करना चाहूंगा जो निम्न करता है:
c & lt; - {Sum.diff [k] & lt; - sum (diff (c, lag = k)} पाश के बजाय वेक्टरिंग के माध्यम से विशेष रूप से, मैं एक सदिश (यहाँ 'सी'), और अंतराल मूल्यों का एक सदिश (यहाँ '1: n') भेजना चाहता हूं, और के-वें अंतर की राशि को के-वें प्रविष्टि में प्राप्त करना चाहता हूं आउटपुट वेक्टर (यहां 'sum.lags')।
उदाहरण के लिए, c & lt; - 1: 100 के साथ n & lt; - 10 चाहिए: 99 1 9 100 2 9 1 ... 900 से मेल खाती है:
sum (diff (1: 100, lag = 1)) sum (diff (1 : 100, लैग = 2)) राशि (अंतर (1: 100, लैग = 3)) ... राशिफल (1: 100, लैग = 10)) कोई भी विचार?
ए डेटा के योग्य नकलीकरण (आपके कोड से थोड़ा अधिक तेज होना चाहिए बड़े डेटा सेट) a & lt; - 1: 100 b & lt; - 1:10 लाइब्रेरी (डेटा योग्य) डीटी & lt; - डेटा योग्य (बी) [, रिज़ः = योग (ए, बी)), द्वारा = बी] डीटी # बी आरएस # 1: 1 99 # 2: 2 196 # 3: 3 291 # 4: 4 384 # 5: 5 475 # 6: 6 564 # 7: 7 651 # 8: 8 736 # 9: 9 819 # 10: 10 900
Comments
Post a Comment