Wybieranie ostatnich n pozycji w szeregu czasowym

Question

Chcę wybrać ostatnie pozycje n z szeregu czasowego. Mogę użyć operatora [, ale tracę atrybuty szeregów czasowych danych:

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

pisałem funkcji otoki do ponownego zastosowania czas atrybutów serii, ale zastanawiałem się, czy nie było więcej elegancki sposób to zrobić?

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

Dlaczego operator [ nie zwraca obiektu szeregów czasowych?

Answer 1

Podejrzewam, że to nie jest to, czego szukasz, ale można użyć zwykły ekstrakt ([) składni z zoo obiektów:

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

Następnie, jeśli chcesz, przekształcić z powrotem do ts obiekt:

as.ts(last_zoo) 

Answer 2

[ nie zwraca ts obiektu, ponieważ data[c(1,5,6)] na przykład nie będzie działać. Zamiast tego jest funkcja window():

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

Więc modyfikacją swojej funkcji lastN byłoby

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

Następnie tail(data,5) będą robić to, co chcesz.