Базовый Lag TS Объект в R не "работает"

Question

Вот некоторая базовая информация о моих данных.

> prod.ts
Time Series:
Start = 2009.26027397260 
End = 2010.83719704953 
Frequency = 52 
 [1]  895 1780 1989 1996 1660 1860 1921 2188 1789 1996 2085 2185 2205 2232 2062
[16] 2257 2000 2055 2084 1977 2051 1999 2428 2220 2385 2174 2307 2549 2211 2224
[31] 1922 2091 2318 1986 2080 2069 2106 1998 1480 1841 1819 2119 2109 2072 2206
[46] 1965 2017 2296 1866 2262 2088 2157 2582 2398 2325 1393 2577 2375 2452 2534
[61] 2586 2032 2781 2423 2575 2362 2132 2375 2105 2425 2346 2495 2908 2301 2918
[76] 2426 2633 2312 2472 2305 2622 2662 2626

Я не знаю, почему эти двое эквивалентны

> length(prod.ts)
[1] 83
> length(lag(prod.ts, 1))
[1] 83

Это, вероятно, показывает, что я новичок в R и Timeсерия, а чего мне не хватает?

Заранее спасибо

Answer 1

lag.ts отстает от времени.Данные не изменены.Сравните серии g и lag(g) ниже.Обратите внимание, что данные такие же, но g идет от 1 до 5, а lag(g) идет от 0 до 4:

> g <- ts(101:105)
> g
Time Series:
Start = 1 
End = 5 
Frequency = 1 
[1] 101 102 103 104 105
> lag(g)
Time Series:
Start = 0 
End = 4 
Frequency = 1 
[1] 101 102 103 104 105

Answer 2

Так определяется lag() для ts объектов. От help(lag):

lag                   package:stats                    R
Documentation

Lag a Time Series

Description:

     Compute a lagged version of a time series, shifting the time base
     back by a given number of observations.

Используйте xts() или zoo(), если вы предпочитаете добавлять NA, сохраняя время начала и окончания.