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

Popular posts from this blog

c - Mpirun hangs when mpi send and recieve is put in a loop -

python - Apply coupon to a customer's subscription based on non-stripe related actions on the site -

java - Unable to get JDBC connection in Spring application to MySQL -