एक समय श्रृंखला

Question

में अंतिम एन आइटम का चयन करना मैं एक समय श्रृंखला के अंतिम n आइटम चुनना चाहता हूं। मैं [ ऑपरेटर का उपयोग कर सकते हैं, लेकिन मैं डेटा की समय श्रृंखला गुण खो:

data <- ts(1:10, frequency = 4, start = c(1959, 2)) 
data[(length(data)-4):length(data)] 

मैं करने के लिए समय श्रृंखला का श्रेय फिर से लागू करने के लिए एक आवरण समारोह में लिखा है, लेकिन अगर वहाँ था एक और अधिक मैं सोच रहा था ऐसा करने के लिए सुरुचिपूर्ण तरीका?

lastN <- function(data,n) { 
    out <- data[(length(data)-n+1):length(data)] 
    ts(out, end=end(data), frequency=frequency(data)) 
} 
data 
lastN(data,5) 

[ ऑपरेटर एक समय श्रृंखला वस्तु क्यों नहीं लौटाता है?

Answer 1

मुझे लगता है कि यह नहीं है कि आप क्या देख रहे हैं, लेकिन आप zoo वस्तुओं के साथ हमेशा की तरह निकालने ([) सिंटैक्स का उपयोग कर सकते हैं: तो फिर

library(zoo) 
data_zoo <- as.zoo(data) 
last_zoo <- data_zoo[(length(data_zoo)-4):length(data_zoo)] 

, यदि आप चाहें तो एक ts वापस करने के लिए परिवर्तित वस्तु:

as.ts(last_zoo) 

Answer 2

[ एक ts वस्तु वापस नहीं करता है क्योंकि उदाहरण के लिए data[c(1,5,6)] कार्य नहीं करेगा। इसके बजाय वहाँ window() समारोह है:

window(data,start=tsp(data)[2]-4/frequency(data)) 

तो अपने lastN समारोह के संशोधन

tail.ts <- function(data,n) { 
    data <- as.ts(data) 
    window(data,start=tsp(data)[2]-(n-1)/frequency(data)) 
} 

फिर tail(data,5) तुम क्या चाहते हो जाएगा होगा।