Z Skrypty dla studentów Ekonofizyki UPGOW
(→Metoda S1: Metoda małego trendu) |
(→Metoda S2: Szacowanie metodą średniej kroczącej) |
||
(Nie pokazano 61 wersji pomiędzy niniejszymi.) | |||
Linia 1: | Linia 1: | ||
- | + | <center> | |
+ | [[Analiza Szeregów Czasowych]] | ||
+ | [[Analiza Szeregów Czasowych/Procesy stochastyczne|<<< Procesy stochastyczne]] | [[Analiza Szeregów Czasowych/Modelowanie szeregów czasowych|Modelowanie szeregów czasowych >>>]] | ||
+ | </center> | ||
- | |||
[[Grafika:1929 wall street crash graph.svg|right|thumb|250px|Indeks Dow Jones Industrial Average w latach 1928-1930]] | [[Grafika:1929 wall street crash graph.svg|right|thumb|250px|Indeks Dow Jones Industrial Average w latach 1928-1930]] | ||
Linia 39: | Linia 41: | ||
<math> t = 1, 2, ..., n</math>. Zakładamy dodatkowo, bez straty ogólności, że <math> E Y_t = 0.</math> | <math> t = 1, 2, ..., n</math>. Zakładamy dodatkowo, bez straty ogólności, że <math> E Y_t = 0.</math> | ||
+ | |||
+ | [[Plik:cw41reszty.png|thumb|right|450px|Rysunek 4.2. Liczba ludności USA w latach 1790 - 1980, w odstępach dziesięcioletnich.]] | ||
===Metoda 1 (metoda minimum sumy kwadratów błędów)=== | ===Metoda 1 (metoda minimum sumy kwadratów błędów)=== | ||
Linia 44: | Linia 48: | ||
====Przykład 4.1: Liczba ludności USA w latach 1790 - 1980, w odstępach dziesięcioletnich.==== | ====Przykład 4.1: Liczba ludności USA w latach 1790 - 1980, w odstępach dziesięcioletnich.==== | ||
- | |||
Po wstępnej analizie wykresu danych populacji USA z lat 1790 - 1980 (patrz wstęp) zakładamy, że nasze dane mogą być dopasowane funkcją potęgową drugiego rzędu | Po wstępnej analizie wykresu danych populacji USA z lat 1790 - 1980 (patrz wstęp) zakładamy, że nasze dane mogą być dopasowane funkcją potęgową drugiego rzędu | ||
Linia 52: | Linia 55: | ||
: <math>\chi^2(a_2,a_1,a_0) = \sum_{t=1790}^{1980} (X_t - m_t)^2 = \sum_{t=1790}^{1980} (X_t - a_2 t^2 - a_1 t - a_0)^2. </math> | : <math>\chi^2(a_2,a_1,a_0) = \sum_{t=1790}^{1980} (X_t - m_t)^2 = \sum_{t=1790}^{1980} (X_t - a_2 t^2 - a_1 t - a_0)^2. </math> | ||
+ | [[Plik:cw41.png|thumb|right|450px|Rysunek 4.1. Liczba ludności USA w latach 1790 - 1980, w odstępach dziesięcioletnich.]] | ||
Prosty rachunek (w Octave) daje nam szacowanie parametrów: | Prosty rachunek (w Octave) daje nam szacowanie parametrów: | ||
: <math> a_0 = 2.0979 \cdot 10^{10}, </math> | : <math> a_0 = 2.0979 \cdot 10^{10}, </math> | ||
Linia 59: | Linia 63: | ||
Na rysunku 4.1 przedstawiono dane wraz z dofitowanymi metodą najmniejszych kwadratów wielomianami rzędu 1 i 2. Znając wartości parametrów modelu, a więc mając określony wielomian możemy pokusić się o dalszą analizę szeregu, mianowicie o ocenę reszt modelu. Tym zagadnieniem zajmiemy się nieco później. Na razie wystarczy, jeżeli narysujemy reszty, <math>Y_t = X_t - m_t</math> i poddamy je ocenie wzrokowej (możemy też łatwo policzyć średnią). | Na rysunku 4.1 przedstawiono dane wraz z dofitowanymi metodą najmniejszych kwadratów wielomianami rzędu 1 i 2. Znając wartości parametrów modelu, a więc mając określony wielomian możemy pokusić się o dalszą analizę szeregu, mianowicie o ocenę reszt modelu. Tym zagadnieniem zajmiemy się nieco później. Na razie wystarczy, jeżeli narysujemy reszty, <math>Y_t = X_t - m_t</math> i poddamy je ocenie wzrokowej (możemy też łatwo policzyć średnią). | ||
- | |||
- | |||
- | |||
- | Używając metody najmniejszych kwadratów, | + | ; Przykład : Używając metody najmniejszych kwadratów, dopasujemy teraz wielomian 1 i 2-go rzędu do danych "Liczba ludności USA w latach 1790 - 1980". |
- | + | <source lang="matlab"> | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
close all | close all | ||
+ | clear all | ||
y = csvread('PopulacjaUSA1790-1980.csv'); | y = csvread('PopulacjaUSA1790-1980.csv'); | ||
- | X = y(:,1); | + | X = y(:, 1); |
- | Y = y(:,2)/10^6; | + | Y = y(:, 2) / 10^6; |
- | plot(X,Y,"sr; Dane;", | + | plot(X, Y, "sr; Dane;", |
- | 'MarkerSize',14, 'markeredgecolor','black'); | + | 'MarkerSize', 14, 'markeredgecolor', 'black'); |
- | x = X(1):X(length(X)); | + | x = X(1) : X(length(X)); |
txt = "gbk" | txt = "gbk" | ||
- | for (deg=1:2) | + | for (deg = 1 : 2) |
- | printf("NMK Stopień: %d\n,deg); | + | printf("NMK Stopień: %d\n", deg); |
printf("Współczynniki (od najwyższej potęgi):\n"); | printf("Współczynniki (od najwyższej potęgi):\n"); | ||
- | a = polyfit (X,Y,deg) | + | a = polyfit(X, Y, deg) |
hold on; | hold on; | ||
- | plot(x,polyval(a,x), "linewidth", 2, | + | plot(x, polyval(a,x), "linewidth", 2, |
- | sprintf("--%s; MNK rzedu %d;",txt(deg),deg)); | + | sprintf("--%s; MNK rzedu %d;", txt(deg), deg)); |
endfor; | endfor; | ||
Linia 96: | Linia 92: | ||
grid on; | grid on; | ||
title('Populacja USA w latach 1790-1980'); | title('Populacja USA w latach 1790-1980'); | ||
- | legend('Location','SouthEast'); | + | legend('Location', 'SouthEast'); |
- | print('cw41.png','-dpng','-FTimes-Roman:24') | + | print('cw41.png', '-dpng', '-FTimes-Roman:24') |
- | % | + | %%% |
% Obliczanie reszt | % Obliczanie reszt | ||
- | |||
close all; | close all; | ||
- | Z = Y-polyval(a,X); | + | Z = Y - polyval(a, X); |
- | mZ = mean( | + | mZ = mean(Z); |
- | plot(X,Z, "linewidth", 1, "--sb; reszty;"); | + | plot(X, Z, "linewidth", 1, "--sb; reszty;"); |
hold on; | hold on; | ||
+ | |||
+ | %%% | ||
% srednia | % srednia | ||
plot(X, 0*X + mZ, "linewidth", 2, sprintf("-k; srednia = %.4f;",mZ)); | plot(X, 0*X + mZ, "linewidth", 2, sprintf("-k; srednia = %.4f;",mZ)); | ||
- | + | ||
xlabel('t'); | xlabel('t'); | ||
ylabel('x_t - m_t (w milionach)'); | ylabel('x_t - m_t (w milionach)'); | ||
grid on; | grid on; | ||
- | legend('Location','SouthWest'); | + | legend('Location', 'SouthWest'); |
- | print('cw41reszty.png','-dpng','-FTimes-Roman:24') | + | print('cw41reszty.png', '-dpng', '-FTimes-Roman:24') |
</source> | </source> | ||
- | |||
===Metoda 2 (wygładzanie krzywych)=== | ===Metoda 2 (wygładzanie krzywych)=== | ||
====Metoda średniej kroczącej==== | ====Metoda średniej kroczącej==== | ||
+ | [[Plik:M1_ma.png|right|thumb|250px|Przykład wygładzania 7-punktową i 11-punktową średnią kroczącą]] | ||
+ | |||
Niech ''q'' będzie nieujemną liczbą całkowitą. Rozważmy dwustronną średnią kroczącą procesu <math> \{ X_t = m_t + Y_t\} \ </math>, zdefiniowaną jako | Niech ''q'' będzie nieujemną liczbą całkowitą. Rozważmy dwustronną średnią kroczącą procesu <math> \{ X_t = m_t + Y_t\} \ </math>, zdefiniowaną jako | ||
: <math> W_t = (2q - 1)^{-1} \sum_{j=-q}^q X_{t+j}. \ </math> | : <math> W_t = (2q - 1)^{-1} \sum_{j=-q}^q X_{t+j}. \ </math> | ||
Linia 130: | Linia 128: | ||
Ponieważ <math> \{ X_t \} \ </math> reprezentuje szereg czasowy nie posiadający rejestru (danych) dla indeksu czasowego mniejszego niż 0 oraz dla indeksu czasowego większego niż rozmiar próbki (''n''), dlatego metody tej nie da się zastosować dla początkowego i końcowego fragmentu szeregu, tj. gdy <math> t \le q \ </math> oraz <math> t > n -q \ </math>. | Ponieważ <math> \{ X_t \} \ </math> reprezentuje szereg czasowy nie posiadający rejestru (danych) dla indeksu czasowego mniejszego niż 0 oraz dla indeksu czasowego większego niż rozmiar próbki (''n''), dlatego metody tej nie da się zastosować dla początkowego i końcowego fragmentu szeregu, tj. gdy <math> t \le q \ </math> oraz <math> t > n -q \ </math>. | ||
- | + | <source lang="matlab"> | |
- | + | function [z] = asc_moving_average(x, c) | |
- | + | ||
- | + | ||
- | + | ||
- | function [z] = | + | |
if ( isempty (x) || (!isvector(x)) ) | if ( isempty (x) || (!isvector(x)) ) | ||
Linia 154: | Linia 148: | ||
endfunction | endfunction | ||
</source> | </source> | ||
- | |||
====Wygładzanie wykładnicze==== | ====Wygładzanie wykładnicze==== | ||
+ | Metoda ta pozwala zmniejszyć wariancję oryginalnego szeregu czasowego za pomocą ważonej średniej ruchomej z przeszłych wartości, o wagach malejących wykładniczo wraz z odległością w czasie. | ||
+ | |||
+ | [[Grafika:M2_data.png|center|Rys.M2.1: wygładzanie wykładnicze 3 metodami: prostą, Holta z wartościami początkowymi danymi przez wartości wektora danych, Holta z wartościami początkowymi danymi przez parametry dopasowanej funkcji liniowej]] | ||
+ | |||
+ | =====Proste wygładzanie wykładnicze (model Browna)===== | ||
Dla dowolnej liczby <math> a \in [0,1] \ </math> możemy policzyć jednostronną średnią kroczącą <math> \hat{m}_t, t = 1,\dots,n \ </math> zdefiniowaną poprzez rekurencje (czasami zwane rekursjami) | Dla dowolnej liczby <math> a \in [0,1] \ </math> możemy policzyć jednostronną średnią kroczącą <math> \hat{m}_t, t = 1,\dots,n \ </math> zdefiniowaną poprzez rekurencje (czasami zwane rekursjami) | ||
: <math> | : <math> | ||
Linia 166: | Linia 164: | ||
Łatwo można policzyć, że dla <math> t \ge 2 \ </math> poszczególne <math> \hat{m}_t </math> są | Łatwo można policzyć, że dla <math> t \ge 2 \ </math> poszczególne <math> \hat{m}_t </math> są | ||
: <math> \hat{m}_t = \sum_{j=0}^{t-2} a (1 - a)^j x_{t-j} + (1 - a)^{t-1} X_1, \ </math> | : <math> \hat{m}_t = \sum_{j=0}^{t-2} a (1 - a)^j x_{t-j} + (1 - a)^{t-1} X_1, \ </math> | ||
- | czyli, że są średnimi kroczącymi z wagami zanikającymi wykładniczo (za wyjątkiem ostatniego wyrazu. | + | czyli, że są średnimi kroczącymi z wagami zanikającymi wykładniczo (za wyjątkiem ostatniego wyrazu). |
+ | |||
+ | Wybór parametru <i>a</i> odbywa się zazwyczaj metodą prób i błędów. Poniżej czytelnik znajdzie program w języku Matlab/Octave realizujący wygładzanie wykładnicze. | ||
+ | |||
+ | <source lang="matlab"> | ||
+ | function [m] = asc_exponential_smoothing(x, a = 0.5) | ||
+ | |||
+ | if ( isempty (x) || (!isvector(x)) ) | ||
+ | error ("movingAverage: pierwszy agrument musi byc niepustym wektorem"); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if (a < 0 || a > 1) | ||
+ | error("a=%d, Podaj 0 < a < 1\n",a); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | m(1) = x(1); | ||
+ | for t = 2 : length(x) | ||
+ | m(t) = a * x(t) + (1 - a) * m(t - 1); | ||
+ | endfor | ||
+ | |||
+ | endfunction | ||
+ | </source> | ||
+ | |||
+ | =====Model liniowy Holta===== | ||
+ | Model ten stosowany jest do wygładzania szeregów czasowych z trendem. Model opisujemy dwoma równaniami: | ||
+ | : <math>F_{t} = \alpha X_{t} + \left( {1 - \alpha } \right)\left( {F_{t - 1} + S_{t - 1} } \right)</math><br /><br /> | ||
+ | : <math>S_{t} = \beta \left( {F_{t} - F_{t - 1} } \right) + \left( {1 - \beta } \right)S_{t - 1}</math><br /><br /> | ||
+ | * <math>F_{t}\,</math> - wygładzona wartość zmiennej w chwili <math>t</math> | ||
+ | * <math>S_{t}\,</math> - wygładzona wartość przyrostu (trendu) w chwili <math>t</math> | ||
+ | * <math>\alpha, \beta\,</math> - parametry modelu o wartościach z przedziału [0,1]<br /> | ||
+ | |||
+ | Wartości <math>\alpha, \beta\,</math>, podobnie jak parametr <i>a</i> poprzedniej metody znajdujemy metodą prób i błędów. Wartości początkowe <math>F_1\,</math> i <math>S_1\,</math> można uzyskać na dwa sposoby: | ||
+ | * z użyciem pierwszych wyrazów wektora danych | ||
+ | ** <math>F_1\,</math> = <math>X_1\,</math>, | ||
+ | ** <math>S_1\,</math> = <math>X_2-X_1\,</math>, | ||
+ | * z użyciem dopasowania funkcji liniowej do trendu (szeregu) | ||
+ | **<math>F_1\,</math> wyrazu wolnego liniowej funkcji trendu (po uprzednim dopasowaniu), | ||
+ | ** <math>S_1\,</math> współczynnik kierunkowy tej samej funkcji. | ||
+ | |||
+ | <source lang="matlab"> | ||
+ | function [F, S] = asc_exponential_smoothing_Holt(x, a = 0.5, b = 0.5, initial = "vec") | ||
+ | |||
+ | length_x = length(x); | ||
+ | |||
+ | if ( isempty (x) || (!isvector(x)) || length_x < 2) | ||
+ | error ("asc_exponential_smoothing_Holt: \ | ||
+ | pierwszy agrument musi byc niepustym wektorem"); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if (a < 0 || a > 1) | ||
+ | error("asc_exponential_smoothing_Holt: \ | ||
+ | a=%d, Podaj 0 < a < 1\n",a); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if (b < 0 || b > 1) | ||
+ | error("asc_exponential_smoothing_Holt: \ | ||
+ | b=%d, Podaj 0 < b < 1\n",b); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if initial == "vec" | ||
+ | F(1) = x(1); | ||
+ | S(1) = x(2) - x(1); | ||
+ | elseif initial == "lin" | ||
+ | [p1, p2, p3] = polyfit([1 : length_x]', x, 1); | ||
+ | F(1) = p1(1); | ||
+ | S(1) = p1(2); | ||
+ | else | ||
+ | error("expecting 'vec' or 'lin' for initial values, '%s' given", initial); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | for t = 2 : length_x | ||
+ | F(t) = a * x(t) + (1 - a) * (F(t - 1) + S(t - 1)); | ||
+ | S(t) = b * (F(t) - F(t - 1)) + (1 - b) * S(t - 1); | ||
+ | endfor | ||
+ | |||
+ | endfunction | ||
+ | </source> | ||
====Filtr liniowy==== | ====Filtr liniowy==== | ||
Linia 188: | Linia 268: | ||
który będzie liniową funkcją "czasu". Cały kłopot polega na takim dobraniu parametru ''q'' by obliczona właśnie średnia dalej była liniowa. Jeżeli ''q'' będzie za duże może się okazać, że przefiltrowany proces pomimo, że będzie ładnie wygładzony, nie będzie dobrym oszacowaniem procesu <math> m_t \ </math>. Z drugiej strony - dobrze zaprojektowany filtr (czyli dobrze dobrany parametr ''q'' oraz wagi <math> \{ a_i \} \ </math>) pozwoli nie tylko na pozbycie się części losowej, ale również "przepuści" szeroką klasę funkcji trendu. | który będzie liniową funkcją "czasu". Cały kłopot polega na takim dobraniu parametru ''q'' by obliczona właśnie średnia dalej była liniowa. Jeżeli ''q'' będzie za duże może się okazać, że przefiltrowany proces pomimo, że będzie ładnie wygładzony, nie będzie dobrym oszacowaniem procesu <math> m_t \ </math>. Z drugiej strony - dobrze zaprojektowany filtr (czyli dobrze dobrany parametr ''q'' oraz wagi <math> \{ a_i \} \ </math>) pozwoli nie tylko na pozbycie się części losowej, ale również "przepuści" szeroką klasę funkcji trendu. | ||
- | + | =====15 punktowa średnia krocząca Spencera===== | |
+ | [[Plik:M2_spencer.png|right|thumb|250px|Przykład wygładzania 15-punktową średnia krocząca Spencera]] | ||
+ | |||
+ | Eliminacja wysokich częstości. | ||
+ | |||
: <math> | : <math> | ||
\begin{align} | \begin{align} | ||
Linia 196: | Linia 280: | ||
</math> | </math> | ||
: a wagi zdefiniowane są następująco | : a wagi zdefiniowane są następująco | ||
- | + | <math> [a_0, a_1, \dots, a_7] = \frac{1}{320} [74,67,46,21,3,-5,-6,-3]. \ </math> | |
- | + | ||
- | + | <source lang="matlab"> | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
function [z] = asc_spencer(x) | function [z] = asc_spencer(x) | ||
Linia 229: | Linia 308: | ||
endfunction | endfunction | ||
</source> | </source> | ||
- | |||
===Metoda 3 (różnicowanie)=== | ===Metoda 3 (różnicowanie)=== | ||
+ | [[Grafika:M3_data.png|right|thumb|250px|Rys.M3.1: szereg czasowy wykazujący trend]] | ||
+ | [[Grafika:M3_error.png|right|thumb|250px|Rys.M3.2: reszty modelu <math> Y_i </math>]] | ||
+ | |||
Metoda ta jest poniekąd odwrotnością metody 2. Zamiast usuwać szum z danych wejściowych usuniemy z nich trend i uzyskamy w ten sposób wektor szumu. Zastosujemy metodę różnicowania do danych stacjonarnych. | Metoda ta jest poniekąd odwrotnością metody 2. Zamiast usuwać szum z danych wejściowych usuniemy z nich trend i uzyskamy w ten sposób wektor szumu. Zastosujemy metodę różnicowania do danych stacjonarnych. | ||
Linia 276: | Linia 357: | ||
a dopiero później różnicując potomny proces <math> \{ y_t \} \ </math>. | a dopiero później różnicując potomny proces <math> \{ y_t \} \ </math>. | ||
- | + | <source lang="matlab"> | |
- | + | function [z] = asc_diff(x, k = 2) | |
- | + | ||
- | + | ||
- | + | ||
- | function [z] = asc_diff(x, k) | + | |
if ( isempty (x) || (!isvector(x)) ) | if ( isempty (x) || (!isvector(x)) ) | ||
Linia 300: | Linia 377: | ||
endfunction | endfunction | ||
</source> | </source> | ||
- | |||
==Eliminacja Trendu oraz Sezonowości== | ==Eliminacja Trendu oraz Sezonowości== | ||
+ | |||
+ | [[Plik:dane_sezonowe.png|right|thumb|250px|przykładowe dane wykazujące sezonowość oraz wykładniczy wzrost (trend)]] | ||
+ | |||
Poprzednie metody w naturalny sposób dają się rozszerzyć i mogą zostać zaadaptowane do szeregów czasowych wykazujących zarówno trend jak i sezonowość | Poprzednie metody w naturalny sposób dają się rozszerzyć i mogą zostać zaadaptowane do szeregów czasowych wykazujących zarówno trend jak i sezonowość | ||
: <math> X_t = m_t + s_t + Y_t \ </math> | : <math> X_t = m_t + s_t + Y_t \ </math> | ||
Linia 313: | Linia 392: | ||
\end{align} | \end{align} | ||
</math> | </math> | ||
- | |||
- | |||
===Metoda S1: Metoda małego trendu=== | ===Metoda S1: Metoda małego trendu=== | ||
+ | |||
+ | [[Grafika:M1_data.png|right|thumb|250px|Rys.MS1.1: sezonowy szereg czasowy o małym trendzie]] | ||
+ | [[Grafika:M1_trend.png|right|thumb|250px|Rys.MS1.2: trend <math> \hat{m}_j </math>]] | ||
+ | [[Grafika:M1_season.png|right|thumb|250px|Rys.MS1.3: czynnik okresowy <math> \hat{s}_k </math>]] | ||
+ | [[Grafika:M1_error.png|right|thumb|250px|Rys.MS1.4: reszty modelu <math> Y_{jk} </math>]] | ||
+ | |||
Zgodnie z powyższymi założeniami mamy | Zgodnie z powyższymi założeniami mamy | ||
: <math> \sum_{j=1}^d S_j = 0. ~~~ \ </math> (MS1.1) | : <math> \sum_{j=1}^d S_j = 0. ~~~ \ </math> (MS1.1) | ||
Linia 324: | Linia 407: | ||
: <math> \hat{s}_k = \frac{1}{N} \sum_{j=1}^N (X_{jk} - \hat{m}_j), \ </math>, N - ilość okresów. (MS1.3) | : <math> \hat{s}_k = \frac{1}{N} \sum_{j=1}^N (X_{jk} - \hat{m}_j), \ </math>, N - ilość okresów. (MS1.3) | ||
Powyższy wzór spełnia zależność (M1). W rezultacie obliczamy wektor reszt. | Powyższy wzór spełnia zależność (M1). W rezultacie obliczamy wektor reszt. | ||
- | : <math> Y_{jk} = X_{jk} - \hat{m}_j - \hat{s}_k, ~~~~~j = 1,\dots,N, k=1,\dots,d\ </math>. (MS1.4) | + | : <math> Y_{jk} = X_{jk} - \hat{m}_j - \hat{s}_k,</math> |
+ | : <math> ~~~~~j = 1,\dots,N, k=1,\dots,d\ </math>. (MS1.4) | ||
<math> Y_{jk} \ </math> to reszta (błąd) dla <i>k</i>-tej wartości w <j>-tym okresie. | <math> Y_{jk} \ </math> to reszta (błąd) dla <i>k</i>-tej wartości w <j>-tym okresie. | ||
- | ;Przykład | + | ;Przykład : Rozpatrzymy przykładowy (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS1.1). Trend, zgodnie z założeniami powinien być dostatecznie mały, aby na danym okresie mógł być uznany za stały. Aby zilustrować działanie metody 1, obliczymy kolejno <math> \hat{m}_j </math> (Rys.MS1.2), <math> \hat{s}_k </math> (Rys.MS1.3) i ostatecznie oszacujemy błąd (Rys.MS1.4) korzystając z formuły (MS1.4). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości. |
- | Rozpatrzymy przykładowy (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend. Trend, zgodnie z założeniami powinien być dostatecznie mały, aby na danym okresie mógł być uznany za stały. Aby zilustrować działanie metody 1, obliczymy kolejno <math> \hat{m}_j </math>, <math> \hat{s}_k </math> i ostatecznie oszacujemy błąd korzystając z formuły (MS1.4). | + | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | <source lang="matlab"> | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
function [m_hat, s_hat, Y] = asc_small_trend(x, d) | function [m_hat, s_hat, Y] = asc_small_trend(x, d) | ||
Linia 385: | Linia 458: | ||
endfunction | endfunction | ||
</source> | </source> | ||
- | |} | + | |
+ | ===Metoda S2: Szacowanie metodą średniej kroczącej=== | ||
+ | |||
+ | [[Grafika:SM2_data.png|right|thumb|250px|Rys.MS2.1: sezonowy szereg czasowy o silnym (eksponencjalnym) trendzie]] | ||
+ | [[Grafika:SM2_wstepny_trend.png|right|thumb|250px|Rys.MS2.2: wstępny trend <math> \hat{m}_t </math>]] | ||
+ | [[Grafika:SM2_season.png|right|thumb|250px|Rys.MS2.3: czynnik okresowy <math> \hat{s}_k </math>]] | ||
+ | |||
+ | Technika ta ma lekką przewagą nad swoją poprzedniczką, bowiem nie musimy zakładać, że średnia liczona na okresie zmian jest praktycznie stała. | ||
+ | |||
+ | ;Przepis | ||
+ | # Zakładamy, że mamy wektor obserwacji <math> \{ X_t \}, ~~~t=1,\dots,N \ </math>. | ||
+ | # Na początku szacujemy trend poprzez zastosowanie specjalnego filtra, tak, by wygładzić część odpowiedzialną za sezonowość i by zmniejszyć szum. | ||
+ | ## Jeżeli okres jest liczbą parzystą (d = 2q), to stosujemy następujący filtr <math> \hat{m}_t = (\frac{1}{2} X_{t-q} + X_{t-q+1} + \ </math> <math> \dots + X_{t+q-1} + X_{t+q})/d, ~~~q < t \le N-q. \ </math> | ||
+ | ## Jeżeli okres jest liczbą nieparzystą, to stosujemy zwykłą średnią kroczącą. | ||
+ | # Kolejny krok to próba oszacowania sezonowości. Dla każdej wartości <math> k = 1, \dots, d </math> obliczamy średnią odchyleń | ||
+ | : <math> w_k = \{ (x_{k + jd} - \hat{m}_{k + jd}): q < k + jd \le N-q \}. </math> | ||
+ | : Suma właśnie obliczonych odchyleń niekoniecznie daje zero. Komponent sezonowy lepiej jest zatem liczyć ze wzoru | ||
+ | : <math> \hat{s}_k = w_k - \frac{1}{d} \sum_{i=1}^{d} w_i, ~~~k=1,\dots,d \ </math>, | ||
+ | :mając dodatkowo na uwadze, że <math> \hat{s}_k = \hat{s}_{k-d}, ~~~k>d. \ </math> Dane pozbawione sezonowości można zapisać jako | ||
+ | : <math> d_t = X_t - \hat{s}_t \ </math>. | ||
+ | #<li value=4> Na sam koniec szacujemy trend posługując się najbardziej odpowiednią metodą, np. filtrem MA, czy też próbując dopasować wielomian do danych <math> \{ d_t \} \ </math>. Dzięki temu otrzymujemy ostatecznie wektor trendu <math> \hat{m}_t \ </math>. | ||
+ | # Ostatecznie obliczamy wektor reszt, standardowo odejmując komponenty sezonowości i trendu od danych wejściowych | ||
+ | : <math> Y_t = X_t - \hat{m}_t - \hat{s}_t, ~~~t=1,\dots,N. \ </math> | ||
+ | |||
+ | |||
+ | ;Przykład : Rozpatrzymy inny (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS2.1). Trend tym razem może być dowolnie duży, tu zastosujemy trend eksponencjalny. Aby zilustrować działanie metody 1, obliczymy kolejno wstępny trend (metodą odpowiedniej średniej kroczącej) <math> \hat{m}_j </math> (Rys.MS2.2), średni okres <math> \hat{s}_k </math> (Rys.MS2.3), prawdziwy trend <math> d_t </math> (Rys.MS2.4) i ostatecznie oszacujemy błąd (Rys.MS1.5). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości. | ||
+ | |||
+ | <center><gallery widths=250 heights=190 perrow=2 caption=""> | ||
+ | Plik:SM2_trend.png|Rys.MS2.4: dane bez sezonowości <math> d_t </math>. | ||
+ | Plik:SM2_error.png|Rys.MS2.5: reszty modelu <math> Y_t </math>. | ||
+ | </gallery></center> | ||
+ | |||
+ | <source lang="matlab"> | ||
+ | function [m_hat, s_hat, d, Y] = asc_seasonal_moving_average(x, d = -1, stopien_MA = 17) | ||
+ | |||
+ | if ( isempty (x) || (!isvector(x)) ) | ||
+ | error ("asc_seasonalMA: pierwszy agrument musi byc niepustym wektorem"); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if ( d == -1 ) | ||
+ | error("Jeszcze nie zakodowane..."); | ||
+ | elseif (d == 0) | ||
+ | error("asc_seasonalMA: d > 0, podałeś d = %d", d); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | length_x = length(x); | ||
+ | ilosc_okresow = floor(length_x / d); | ||
+ | |||
+ | %%% | ||
+ | % wstępne wygładzanie danych | ||
+ | q = floor(d / 2); | ||
+ | switch (mod(d, 2)) | ||
+ | case 0 % even | ||
+ | for i = q + 1 : length_x - q | ||
+ | m_hat(i - q) = sum(x(i - q:i + q)) - 0.5 * (x(i - q) + x(i + q)); | ||
+ | endfor | ||
+ | m_hat /= d; | ||
+ | case 1 % odd | ||
+ | m_hat = asc_moving_average(x, d); | ||
+ | endswitch | ||
+ | |||
+ | %%% | ||
+ | % obliczanie sezonowości | ||
+ | % (1) średnia odchyleń | ||
+ | for k = 1 : d | ||
+ | w(k) = mean(x(q + k: d :length_x - q - 1) - m_hat(1 + k: d :length(m_hat))); | ||
+ | endfor | ||
+ | |||
+ | % (2) średni okres zmian | ||
+ | s_hat = w - mean(w); | ||
+ | |||
+ | % (3) sezonowość | ||
+ | s_hat_long = repmat(s_hat, 1, ilosc_okresow - 1); | ||
+ | |||
+ | %%% | ||
+ | % dane bez sezonowości | ||
+ | d = x(q + 1:length_x - q - 1) - s_hat_long; | ||
+ | |||
+ | %%% | ||
+ | % reszty | ||
+ | % (trend obliczany jest prostą średnią kroczącą) | ||
+ | floor_stopien_MA_pol = floor(stopien_MA / 2); | ||
+ | Y = x(q + 1 + floor_stopien_MA_pol:length_x - q - 1 - floor_stopien_MA_pol) | ||
+ | - asc_moving_average(d, stopien_MA) | ||
+ | - s_hat_long(1 + floor_stopien_MA_pol:length(s_hat_long) | ||
+ | - floor_stopien_MA_pol); | ||
+ | |||
+ | endfunction | ||
+ | </source> | ||
+ | |||
+ | ===Metoda S3: Różnicowanie z przesunięciem d=== | ||
+ | |||
+ | [[Grafika:SM3_data.png|right|thumb|250px|Rys.MS3.1: sezonowy szereg czasowy o małym trendzie]] | ||
+ | [[Grafika:SM3_trend.png|right|thumb|250px|Rys.MS3.2: trend <math> \hat{m}_t - \hat{m}_{t-d}</math>]] | ||
+ | [[Grafika:SM3_error.png|right|thumb|250px|Rys.MS3.3: reszty modelu (po różnicowaniu) <math> Y_t - Y_{t-d}</math>]] | ||
+ | |||
+ | Metodę, którą poznaliśmy nieco wcześniej (różnicowanie do danych stacjonarnych) możemy łatwo dostosować do danych zmiennych sezonowo z okresem zmienności <i>d</i> poprzez wprowadzenie <i>operatora różnicowego z opóźnieniem d</i>, zdefiniowanego jako | ||
+ | : <math> \nabla_d X_t = X_t - X_{t-d} = (1 - B^d) X_t. \ </math> | ||
+ | |||
+ | ; Uwaga : nie powinno się mylić operatora <math> \nabla_d = (1 - B^d) \ </math> z operatorem <math> \nabla^d = (1 - B)^d. \ </math> | ||
+ | |||
+ | Stosując operator <math> \nabla_d \ </math> do danych wykazujących sezonowość (i trend) <math> \{ X_t \} \ </math> | ||
+ | : <math> X_t = m_t + s_t + Y_t, \ </math> | ||
+ | gdzie <math> \{ s_t \} \ </math> jest komponentem periodyczną funkcję o okresie <i>d</i> dostajemy | ||
+ | : <math> \nabla_d X_t = m_t - m_{t-d} + Y_t - Y_{t-d}. \ </math> | ||
+ | |||
+ | Otrzymujemy w ten sposób nowy szereg czasowy składający się z dwóch komponentów: | ||
+ | * trendu <math> m_t - m_{t-d} \ </math> i | ||
+ | * szumu (reszt) <math> Y_t - Y_{t-d}. \ </math> | ||
+ | |||
+ | Aby obliczyć wektor reszt, trend możemy usunąć dowolną metodą zaprezentowaną wyżej, np: używając operatora <math> \nabla^k.\ </math> | ||
+ | |||
+ | ;Przykład : Rozpatrzymy kolejny (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS3.1). Trend i tym razem może być dowolnie duży. Aby zilustrować działanie metody S3, usuniemy sezonowość (korzystając z operatora różnicowania z przesunięciem) (Rys.MS3.2) oraz w końcu ostatecznie oszacujemy błąd (podobną metodą - różnicowania) (Rys.MS3.3). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości. | ||
+ | |||
+ | <source lang="matlab"> | ||
+ | function [m, Y] = asc_diffd(x, d, accuracy = 0.001, maxdeg = 5) | ||
+ | |||
+ | if ( isempty (x) || (!isvector(x)) ) | ||
+ | error ("asc_diffd: pierwszy agrument musi byc niepustym wektorem"); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | if ( d == -1 ) | ||
+ | error("asc_diffd: Jeszcze nie zakodowane..."); | ||
+ | elseif (d == 0) | ||
+ | error("asc_diffd: d > 0, podałeś d = %d", d); | ||
+ | return; | ||
+ | endif | ||
+ | |||
+ | %%% | ||
+ | % wektor trendu | ||
+ | m = x(d : length(x)) - x(1 : length(x)-d+1); | ||
+ | |||
+ | %%% | ||
+ | % wektor reszt - obliczany przez różnicowanie, do momentu, gdy | ||
+ | % osiągniemy żądaną dokładność na zerową średnią reszt | ||
+ | for deg = 1 : maxdeg | ||
+ | Y = asc_diff(m,deg); | ||
+ | if mean(Y) < accuracy | ||
+ | break; | ||
+ | endif | ||
+ | endfor | ||
+ | |||
+ | endfunction | ||
+ | </source> | ||
+ | |||
+ | ===Metoda S4: Wygładzanie wykładnicze 3 parametrową metodą Wintersa=== | ||
+ | Niekiedy dane, które poddajemy dekompozycji posiadają sezonowość multiplikatywną, innym razem addytywną. Właśnie omawiana metoda posiada dwa odrębne mechanizmy dekompozycji sygnału w zależności od typu sezonowości. | ||
+ | |||
+ | ====Sezonowość multiplikatywna==== | ||
+ | Zakładamy, że szereg czasowy może być reprezentowany modelem | ||
+ | : <math> X_t = (b_1 + b_2 t) s_t + Y_t \ </math> | ||
+ | gdzie | ||
+ | * <math>b_1</math> to podstawowy sygnał (komponent stały), | ||
+ | * <math>b_2</math> to trend, | ||
+ | * <math>s_t</math> odpowiada za sezonowość (multiplikatywną), | ||
+ | * <math>Y-t</math> to wektor reszt (szum, wektor błędów). | ||
+ | |||
+ | Jeden sezon ma długość L okresów. Współczynniki sezonowości są zdefiniowane tak, że sumują się do długości sezonu L | ||
+ | : <math> \sum_{1 \le t \le L} s_t = L. \ </math> | ||
+ | Model działa również bardzo dobrze jeżeli pozbędziemy się wcześniej trendu <math>b_2</math>. | ||
+ | |||
+ | ; Stosowalność : do szeregów czasowych, w których amplituda sezonowości jest proporcjonalna do średniego poziomu szeregu - do szeregów wykazujących sezonowość multiplikatywną. | ||
+ | |||
+ | ; Notacja : | ||
+ | * <math>R_T \ </math> chwilowa wielkość procesu z usuniętą sezonowością pod koniec okresu <i>T</i>, | ||
+ | * <math>\hat{R}_t</math> oszacowanie szeregu pozbawionego sezonowości, | ||
+ | * <math>\hat{G}_t</math> oszacowanie trendu, | ||
+ | * <math>\hat{S}_t</math> oszacowanie komponentu okresowego (sezonowości). | ||
+ | |||
+ | ; Procedura : | ||
+ | : '''Krok 1. wygładzanie ogólne''' | ||
+ | :: <math> \hat{R}_t = \alpha \frac{X_t}{\hat{S}_{t-L}} + (1 - \alpha) (\hat{R}_{t-1} + \hat{G}_{t-1}), </math> | ||
+ | : gdzie <math> \alpha \in (0,1) </math> to stała wygładzająca. Dzieląc <math>X_t</math> przez czynnik sezonowy obliczony dla poprzedniego okresu zmian (<math>\hat{S}_{t-L}</math>) powoduje usunięcie sezonowości z danych - pozostawiamy tylko trend i czynnik stały. | ||
+ | |||
+ | : '''Krok 2. wygładzanie trendu''' | ||
+ | :: <math> \hat{G}_t = \beta (\hat{S}_{t} - \hat{S}_{t-1}) + (1 - \beta) \hat{G}_{t-1}, </math> | ||
+ | : gdzie <math> \beta \in (0,1) </math> to druga stała wygładzająca. Proste wygładzanie trendu z danych pozbawionych sezonowości. | ||
+ | |||
+ | : '''Krok 3. wygładzanie komponentu okresowego''' | ||
+ | :: <math> \hat{S}_t = \gamma \frac{X_t}{\hat{S}_{t}} + (1 - \gamma) \hat{S}_{t-L}, </math> | ||
+ | : gdzie <math> \gamma \in (0,1) </math> to druga stała wygładzająca. | ||
+ | |||
+ | ; Wartości początkowe dla algorytmu : aby algorytm działał dobrze wymagana jest znajomość pierwszych dwóch okresów danych (2L). Jeżeli znamy <i>m</i> okresów, oraz niech <math>\hat{X}_j</math>, <i>j = 1,2,...,mL</i> oznacza średnią z <i>j</i>-tego sezonu, to | ||
+ | : '''1. trend''' | ||
+ | :: <math> \hat{G}_1 = \frac{\hat{X}_m - \hat{X}_1}{(m-1)L}, </math> | ||
+ | |||
+ | : '''2. zmienna pozbawiona sezonowości''' | ||
+ | :: <math> \hat{R}_1 = \hat{X}_1 - \frac{L}{2} \hat{G}_1, </math> | ||
+ | |||
+ | : '''3. komponent sezonowości''' | ||
+ | : obliczany dla każdego kroku czasowego <math>t = 1, 2, \dots, mL</math> | ||
+ | :: <math> \hat{S}_t = \frac{\hat{X}_t}{\hat{X}_i - [(L+1)/2 - j]\hat{G}_1}, </math> | ||
+ | : gdzie <math>\hat{X}_i</math> oznacza średnią w okresie odpowiadającym <i>t</i>, a <i>j</i> to pozycja okresu <i>t</i> w sezonie. Powyższe równanie daje <i>m</i> oszacowań komponentu sezonowego na każdy okres | ||
+ | :: <math> \hat{S}_t = \frac{1}{m} \sum_{k=0}^{m-1} \hat{S}_{t+kL}, ~~~t = 1,2,\dots,L,</math> | ||
+ | :: <math> \hat{S}_t(0) = \hat{S}_t \frac{L}{\sum_{t=1}^{L} \hat{S}_{t}}, ~~~t = 1,2,\dots,L.</math> | ||
+ | |||
+ | ====Sezonowość addytywna==== | ||
+ | Zakładamy, że szereg czasowy może być reprezentowany modelem | ||
+ | : <math> X_t = b_1 + b_2 t + s_t + Y_t \ </math> | ||
+ | gdzie | ||
+ | * <math>b_1</math> to podstawowy sygnał (komponent stały), | ||
+ | * <math>b_2</math> to trend, | ||
+ | * <math>s_t</math> odpowiada za sezonowość (addytywną), | ||
+ | * <math>Y-t</math> to wektor reszt (szum, wektor błędów). | ||
+ | |||
+ | Jeden sezon ma długość L okresów. Współczynniki sezonowości są zdefiniowane tak, że sumują się do długości sezonu L | ||
+ | : <math> \sum_{1 \le t \le L} s_t = 0. \ </math> | ||
+ | Model działa również bardzo dobrze jeżeli pozbędziemy się wcześniej trendu <math>b_2</math>. | ||
+ | |||
+ | ; Stosowalność : do szeregów czasowych, w których amplituda sezonowości jest niezależna od średniego poziomu szeregu - do szeregów wykazujących sezonowość addytywną. | ||
+ | |||
+ | ; Notacja : | ||
+ | * <math>R_T \ </math> chwilowa wielkość procesu z usuniętą sezonowością pod koniec okresu <i>T</i>, | ||
+ | * <math>\hat{R}_t</math> oszacowanie szeregu pozbawionego sezonowości (pod koniec okresu <i>t</i>), | ||
+ | * <math>\hat{G}_t</math> oszacowanie trendu (pod koniec okresu <i>t</i>), | ||
+ | * <math>\hat{S}_t</math> oszacowanie komponentu okresowego (sezonowości, pod koniec okresu <i>t</i>). | ||
+ | |||
+ | ; Procedura : | ||
+ | : '''Krok 1. wygładzanie ogólne''' | ||
+ | :: <math> \hat{R}_t = \alpha (X_t - \hat{S}_{t-L}) + (1 - \alpha) (\hat{R}_{t-1} + \hat{G}_{t-1}), </math> | ||
+ | : gdzie <math> \alpha \in (0,1) </math> to stała wygładzająca. | ||
+ | |||
+ | : '''Krok 2. wygładzanie trendu''' | ||
+ | :: <math> \hat{G}_t = \beta (\hat{S}_{t} - \hat{S}_{t-1}) + (1 - \beta) \hat{G}_{t-1}, </math> | ||
+ | : gdzie <math> \beta \in (0,1) </math> to druga stała wygładzająca. Proste wygładzanie trendu z danych pozbawionych sezonowości (tak jak poprzednio). | ||
+ | |||
+ | : '''Krok 3. wygładzanie komponentu okresowego''' | ||
+ | :: <math> \hat{S}_t = \gamma (X_t-\hat{S}_{t}) + (1 - \gamma) \hat{S}_{t-L}, </math> | ||
+ | : gdzie <math> \gamma \in (0,1) </math> to druga stała wygładzająca. | ||
+ | |||
+ | ; Wartości początkowe dla algorytmu : jak wyżej. | ||
+ | |||
+ | |||
+ | ; Uwaga 1: wszystkie powyższe metody możemy stosować wymiennie i łącznie, nie musimy ograniczać się do jednej wybranej na samym początku naszej analizy. | ||
+ | |||
+ | <center> | ||
+ | |||
+ | Wszystkie prezentowane kody źródłowe do programów w języku Matlab / Octave jeżeli nie | ||
+ | sprecyzowano inaczej dostępne są na licencji LGPL v3: [http://gitorious.org/asc ASC] | ||
+ | |||
+ | </center> |
Aktualna wersja na dzień 11:56, 10 lut 2011
Analiza Szeregów Czasowych <<< Procesy stochastyczne | Modelowanie szeregów czasowych >>>
Spis treści |
Właściwa analiza dowolnego szeregu czasowego zaczyna się od wizualizacji danych. Znaczy to, że na samym początku powinniśmy stworzyć wykres badanych danych. Daje nam to możliwość oszacowania jak konkretny zbiór danych zachowuje się w czasie. Zazwyczaj możemy ocenić istnienie trendu czy sezonowości. W trudniejszych przypadkach zadecydować, gdy nie podzielić danego szeregu na dwie czy więcej części i badać je osobno. Przykładowo można rozpatrywać zmienność indeksów giełdowych przed krachem i po nim (np: przed i po Czarnym czwartku), opisując serię danych dwoma różnymi modelami. Dodatkowo mamy możliwość decyzji czy przypadkiem część danych nie została uzyskanych przypadkowo (np: błąd pomiaru, przypadkowy pomiar innych wielkości).
Klasyczna dekompozycja sygnału
W szczególności oględziny wykresu analizowanych danych dają możliwość (po pewnej wprawie) na decyzję, czy możemy daną serię danych reprezentować jako realizację procesu
- \( X_t = m_t + s_t + Y_t, \!\)
gdzie
- \(X_t\) to dane pomiarowe,
- \(m_t\) to wielkość opisująca wolno zmienną funkcję, czyli trend,
- \(s_t\) to periodycznie zmienna funkcja zwana sezonowością,
- \(Y_t\) to komponent opisujący (stacjonarny) proces losowy, często nazywany szumem.
Celem dekompozycji szeregu czasowego jest oszacowanie i ekstrakcja deterministycznych części szeregu - trendu \(m_t\) oraz sezonowości \(s_t\) w nadziei, że pozostałe dane, czyli teoretycznie zmienna losowa \(Y_t\) okaże się stacjonarnym procesem losowym. W przypadku, kiedy okaże się to prawdą, tj. reszty \(Y_t\) mogą być opisane stacjonarnym procesem losowym \(\{Y_t\}\), możemy przystąpić do przewidywania przyszłego zachowania się szeregu, wykorzystując oczywiście wszystkie posiadane wiadomości: trend, okres oraz zidentyfikowany z pewną dokładnością proces losowy.
Metoda Boxa-Jenkinsa
Inną, alternatywną metodą do opisanej wyżej, jest metoda która dopasowywuje modele ARMA i ARIMA do istniejących danych. Metoda ta została nazwana po nazwiskach dwóch statystyków Georgea Boxa oraz Gwilyma Jenkinsa, którzy rozwinęli tą metodę w latach 70-tych.
Algorytm Boxa-Jenkinsa składa się z trzech kroków:
- Identyfikacja oraz wybór modelu: pierwszym krokiem jest upewnienie się, że analizujemy dane stacjonarne; następnie identyfikujemy sezonowość i usuwamy ją z danych aby w końcu wykorzystując wykresy funkcji autokorelacji oraz częściowej autokorelacji zdecydować jakie komponenty AR (autoregresji), I (scałkowane) lub MA (średniej ruchomej) wykorzystać do budowy modelu.
- Znalezienie parametrów wybranego modelu za pomocą wybranych metod (numerycznych) tak, aby dopasowanie danych do modelu było najlepsze. Najczęstszymi metodami wykorzystywanymi w praktyce są: maximum likelihood estimation lub (nieliniowa) metoda najmniejszych kwadratów.
- Sprawdzenie poprawności wyboru danego modelu. W szczególności należy sprawdzić czy proces jest stacjonarny - reszty muszą być od siebie niezależne, oraz ich średnia i wariancja musi być stała w czasie. Można
- narysować wykres średniej, wariancji oraz reszt versus czas (indeks) i przeprowadzić na nich test Ljunga-Boxa,
- narysować wykresy funkcji autokorelacji i częściowej autokorelacji reszt.
Jeżeli oszacowanie jest niedobre, należy wrócić na początek algorytmu i postarać się polepszyć istniejący model lub zbudować nowy.
Eliminacja Trendu
Jeżeli analizowane dane nie wykazują sezonowości, ogólny model zastąpić możemy poprzez uproszczony
- \( X_t = m_t + Y_t, \!\)
\( t = 1, 2, ..., n\). Zakładamy dodatkowo, bez straty ogólności, że \( E Y_t = 0.\)
Metoda 1 (metoda minimum sumy kwadratów błędów)
Potoczna nazwa (i obecnie w pełni przyjęta) to metoda najmniejszych kwadratów (MNK). Służy do estymacji i wyznaczania linii trendu na podstawie zbioru danych w postaci par liczb. Najczęściej jest stosowana przy regresji liniowej, ale może też być stosowana do statystycznego wyznaczania parametrów nieliniowych linii trendu.
Przykład 4.1: Liczba ludności USA w latach 1790 - 1980, w odstępach dziesięcioletnich.
Po wstępnej analizie wykresu danych populacji USA z lat 1790 - 1980 (patrz wstęp) zakładamy, że nasze dane mogą być dopasowane funkcją potęgową drugiego rzędu
- \( m_t = a_2 t^2 + a_1 t + a_0,\)
poprzez odpowiedni dobór parametrów modelu. Dobór parametrów następuje poprzez minimalizację funkcji
- \(\chi^2(a_2,a_1,a_0) = \sum_{t=1790}^{1980} (X_t - m_t)^2 = \sum_{t=1790}^{1980} (X_t - a_2 t^2 - a_1 t - a_0)^2. \)
Prosty rachunek (w Octave) daje nam szacowanie parametrów:
- \( a_0 = 2.0979 \cdot 10^{10}, \)
- \( a_1 = -2.3350 \cdot 10^{7}, \)
- \( a_2 = 6.4986 \cdot 10^{3}. \)
Na rysunku 4.1 przedstawiono dane wraz z dofitowanymi metodą najmniejszych kwadratów wielomianami rzędu 1 i 2. Znając wartości parametrów modelu, a więc mając określony wielomian możemy pokusić się o dalszą analizę szeregu, mianowicie o ocenę reszt modelu. Tym zagadnieniem zajmiemy się nieco później. Na razie wystarczy, jeżeli narysujemy reszty, \(Y_t = X_t - m_t\) i poddamy je ocenie wzrokowej (możemy też łatwo policzyć średnią).
- Przykład
- Używając metody najmniejszych kwadratów, dopasujemy teraz wielomian 1 i 2-go rzędu do danych "Liczba ludności USA w latach 1790 - 1980".
close all clear all y = csvread('PopulacjaUSA1790-1980.csv'); X = y(:, 1); Y = y(:, 2) / 10^6; plot(X, Y, "sr; Dane;", 'MarkerSize', 14, 'markeredgecolor', 'black'); x = X(1) : X(length(X)); txt = "gbk" for (deg = 1 : 2) printf("NMK Stopień: %d\n", deg); printf("Współczynniki (od najwyższej potęgi):\n"); a = polyfit(X, Y, deg) hold on; plot(x, polyval(a,x), "linewidth", 2, sprintf("--%s; MNK rzedu %d;", txt(deg), deg)); endfor; xlabel('t'); ylabel('X_t (w milionach)'); grid on; title('Populacja USA w latach 1790-1980'); legend('Location', 'SouthEast'); print('cw41.png', '-dpng', '-FTimes-Roman:24') %%% % Obliczanie reszt close all; Z = Y - polyval(a, X); mZ = mean(Z); plot(X, Z, "linewidth", 1, "--sb; reszty;"); hold on; %%% % srednia plot(X, 0*X + mZ, "linewidth", 2, sprintf("-k; srednia = %.4f;",mZ)); xlabel('t'); ylabel('x_t - m_t (w milionach)'); grid on; legend('Location', 'SouthWest'); print('cw41reszty.png', '-dpng', '-FTimes-Roman:24')
Metoda 2 (wygładzanie krzywych)
Metoda średniej kroczącej
Niech q będzie nieujemną liczbą całkowitą. Rozważmy dwustronną średnią kroczącą procesu \( \{ X_t = m_t + Y_t\} \ \), zdefiniowaną jako
- \( W_t = (2q - 1)^{-1} \sum_{j=-q}^q X_{t+j}. \ \)
Zakładając, że na wybranym przedziale \([t-q,t+q] \ \), trend \(m_t \ \) jest w dobrym przybliżeniu liniowy oraz średnia reszt modelu \(Y_t \ \) jest bliska zeru, wówczas, dla \(q + 1 \le t \le n - q \ \) powyższe równanie możemy zapisać jako
- \( W_t = (2q - 1)^{-1} \sum_{j=-q}^q m_{t+j} + (2q - 1)^{-1} \sum_{j=-q}^q Y_{t+j} \simeq m_t. \ \)
Metoda średniej kroczącej pozwala nam oszacować trend
- \( \hat{m}_t = (2q-1)^{-1} \sum_{j=-q}^q X_{t+j}, ~~~q + 1 \le t \le n - q. \ \)
Ponieważ \( \{ X_t \} \ \) reprezentuje szereg czasowy nie posiadający rejestru (danych) dla indeksu czasowego mniejszego niż 0 oraz dla indeksu czasowego większego niż rozmiar próbki (n), dlatego metody tej nie da się zastosować dla początkowego i końcowego fragmentu szeregu, tj. gdy \( t \le q \ \) oraz \( t > n -q \ \).
function [z] = asc_moving_average(x, c) if ( isempty (x) || (!isvector(x)) ) error ("movingAverage: pierwszy agrument musi byc niepustym wektorem"); return; endif if (mod(c,2) == 0 || c < 1 || c > length(x)) error("s=%d, Podaj nieparzyste s >= 1\n",c); return; endif q = (c-1)/2; for i = (q+1):(length(x)-q) z(i-q) = mean(x(i-q:i+q)); endfor endfunction
Wygładzanie wykładnicze
Metoda ta pozwala zmniejszyć wariancję oryginalnego szeregu czasowego za pomocą ważonej średniej ruchomej z przeszłych wartości, o wagach malejących wykładniczo wraz z odległością w czasie.
Proste wygładzanie wykładnicze (model Browna)
Dla dowolnej liczby \( a \in [0,1] \ \) możemy policzyć jednostronną średnią kroczącą \( \hat{m}_t, t = 1,\dots,n \ \) zdefiniowaną poprzez rekurencje (czasami zwane rekursjami)
- \( \begin{align} \hat{m}_t &= a X_t + (1 - a) \hat{m}_{t-1}, ~~~t=2,\dots,n, \\ \hat{m}_1 &= X_1. \end{align} \)
Łatwo można policzyć, że dla \( t \ge 2 \ \) poszczególne \( \hat{m}_t \) są
- \( \hat{m}_t = \sum_{j=0}^{t-2} a (1 - a)^j x_{t-j} + (1 - a)^{t-1} X_1, \ \)
czyli, że są średnimi kroczącymi z wagami zanikającymi wykładniczo (za wyjątkiem ostatniego wyrazu).
Wybór parametru a odbywa się zazwyczaj metodą prób i błędów. Poniżej czytelnik znajdzie program w języku Matlab/Octave realizujący wygładzanie wykładnicze.
function [m] = asc_exponential_smoothing(x, a = 0.5) if ( isempty (x) || (!isvector(x)) ) error ("movingAverage: pierwszy agrument musi byc niepustym wektorem"); return; endif if (a < 0 || a > 1) error("a=%d, Podaj 0 < a < 1\n",a); return; endif m(1) = x(1); for t = 2 : length(x) m(t) = a * x(t) + (1 - a) * m(t - 1); endfor endfunction
Model liniowy Holta
Model ten stosowany jest do wygładzania szeregów czasowych z trendem. Model opisujemy dwoma równaniami:
- \(F_{t} = \alpha X_{t} + \left( {1 - \alpha } \right)\left( {F_{t - 1} + S_{t - 1} } \right)\)
- \(S_{t} = \beta \left( {F_{t} - F_{t - 1} } \right) + \left( {1 - \beta } \right)S_{t - 1}\)
- \(F_{t}\,\) - wygładzona wartość zmiennej w chwili \(t\)
- \(S_{t}\,\) - wygładzona wartość przyrostu (trendu) w chwili \(t\)
- \(\alpha, \beta\,\) - parametry modelu o wartościach z przedziału [0,1]
Wartości \(\alpha, \beta\,\), podobnie jak parametr a poprzedniej metody znajdujemy metodą prób i błędów. Wartości początkowe \(F_1\,\) i \(S_1\,\) można uzyskać na dwa sposoby:
- z użyciem pierwszych wyrazów wektora danych
- \(F_1\,\) = \(X_1\,\),
- \(S_1\,\) = \(X_2-X_1\,\),
- z użyciem dopasowania funkcji liniowej do trendu (szeregu)
- \(F_1\,\) wyrazu wolnego liniowej funkcji trendu (po uprzednim dopasowaniu),
- \(S_1\,\) współczynnik kierunkowy tej samej funkcji.
function [F, S] = asc_exponential_smoothing_Holt(x, a = 0.5, b = 0.5, initial = "vec") length_x = length(x); if ( isempty (x) || (!isvector(x)) || length_x < 2) error ("asc_exponential_smoothing_Holt: \ pierwszy agrument musi byc niepustym wektorem"); return; endif if (a < 0 || a > 1) error("asc_exponential_smoothing_Holt: \ a=%d, Podaj 0 < a < 1\n",a); return; endif if (b < 0 || b > 1) error("asc_exponential_smoothing_Holt: \ b=%d, Podaj 0 < b < 1\n",b); return; endif if initial == "vec" F(1) = x(1); S(1) = x(2) - x(1); elseif initial == "lin" [p1, p2, p3] = polyfit([1 : length_x]', x, 1); F(1) = p1(1); S(1) = p1(2); else error("expecting 'vec' or 'lin' for initial values, '%s' given", initial); return; endif for t = 2 : length_x F(t) = a * x(t) + (1 - a) * (F(t - 1) + S(t - 1)); S(t) = b * (F(t) - F(t - 1)) + (1 - b) * S(t - 1); endfor endfunction
Filtr liniowy
Użytecznie jest myśleć o procesie \( \{ m_t \} \ \) jako o procesie potomnym otrzymanym z procesu pierwotnego \( \{ X_t \} \ \) poprzez zastosowanie operatora liniowego bądź też filtra liniowego
- \( \hat{m}_t = \sum_{j=-\infty}^{\infty} a_j X_{t+j}, \ \)
z wagami
- \( \begin{align} a_j &= (2q + 1)^{-1}, ~~~ -q \le j \le q, \\ a_j &= 0, ~~~ |j| > q. \end{align} \)
Ten szczególny typ filtra jest filtrem dolnoprzepustowym, pozwala on bowiem usunąć elementy szybkozmienne (elementy o wysokiej częstotliwości) pozostawiając elementy wolno-zmienne (o częstotliwości niskiej) - takie jak trend (czy sezonowość).
Filtr zdefiniowany w paragrafie traktującym o średniej kroczącej to tylko jeden z wielu możliwych filtrów stosowanych do wygładzania danych. Dla dostatecznie dużych q czyli takich, by średnia szumu na badanym okresie była bliska zeru
- \( (2q-1)^{-1} \sum_{j=-q}^{q} Y_{t+j} \simeq 0 \ \)
taki filtr przede wszystkim usunie szum z danych, ale za razem przepuści sygnał
- \( m_t = at + b \ \)
który będzie liniową funkcją "czasu". Cały kłopot polega na takim dobraniu parametru q by obliczona właśnie średnia dalej była liniowa. Jeżeli q będzie za duże może się okazać, że przefiltrowany proces pomimo, że będzie ładnie wygładzony, nie będzie dobrym oszacowaniem procesu \( m_t \ \). Z drugiej strony - dobrze zaprojektowany filtr (czyli dobrze dobrany parametr q oraz wagi \( \{ a_i \} \ \)) pozwoli nie tylko na pozbycie się części losowej, ale również "przepuści" szeroką klasę funkcji trendu.
15 punktowa średnia krocząca Spencera
Eliminacja wysokich częstości.
- \( \begin{align} a_i &= 0, ~~~|i| > 7, \\ a_i &= a_{-i}, ~~~|i| \le 7 \\ \end{align} \)
- a wagi zdefiniowane są następująco
\( [a_0, a_1, \dots, a_7] = \frac{1}{320} [74,67,46,21,3,-5,-6,-3]. \ \)
function [z] = asc_spencer(x) length_x = length(x); if ( isempty (x) || (!isvector(x)) || length_x < 18) error ("\n\nasc_spencer:\npierwszy agrument musi byc niepustym \ wektorem\no długości większej lub równej 18\npodano wektor od \ długości: %d \n\n",length(x)); return; endif %%% % wagi spencera spencer = [74, 67, 46, 21, 3, -5, -6, -3] / 320; length_spencer = length(spencer); z = zeros(1, length_x - 2 * length_spencer); for i = length_spencer + 1 : length_x - length_spencer - 1 for j = -length_spencer + 1 : length_spencer - 1 z(i - length_spencer) += spencer(abs(j) + 1) * x(i + j); endfor endfor endfunction
Metoda 3 (różnicowanie)
Metoda ta jest poniekąd odwrotnością metody 2. Zamiast usuwać szum z danych wejściowych usuniemy z nich trend i uzyskamy w ten sposób wektor szumu. Zastosujemy metodę różnicowania do danych stacjonarnych.
Na początku zdefiniujemy operator różnicowania jako
- \( \nabla X_t = X_t - X_{t-1} = (1 - B) X_t, \ \)
gdzie \(B \ \) nazywamy operatorem przesunięcia w tył i definiujemy jako
- \( B X_t = X_{t-1}. \ \)
Podamy teraz kilka właściwości operatora przesunięcia w tył \[ \begin{align} (i)~~ &B^j X_t = X_{t-j}, \\ (ii)~~ &\nabla^j X_t = \nabla(\nabla^{j-1} X_t),~~~ j \ge 1, \\ (iii)~~ &\nabla^0 X_t = X_t. \end{align} \]
Potęgi operatora \(\nabla \ \) zachowuja się tak samo jak wielomiany
- \( \nabla^2 X_t = \nabla (\nabla (X_t)) = (1-B)(1-B) X_t = (1 - 2B + B^2) X_t = X_t - 2 X_{t-1} + X_{t-2} \ \)
Jeżeli operatow \(\nabla \ \) zaaplikujemy do funkcji liniowej
- \(m_t = at + b \ \)
wynikiem będzie funkcja stała
- \(\nabla m_t = a. \ \)
W ten sposób dowolny wielomian rzędu \( k \) możemy zredukować do stałej poprzez k-krotne użycie operatora \( \nabla \ \) (\( \nabla^k \ \)).
Jeżeli rozpatrujemy model
- \( X_t = m_t + Y_t \ \)
gdzie
- \( m_t = \sum_{i=0}^{k} a_j t^j, \)
a \( Y_t \ \) jest procesem stacjonarnym o średniej zero, to
- \( D_t = \nabla^k X_t = k! a_k + \nabla^k Y_t \)
jest procesem stacjonarnym o średniej
- \( \langle D_t \rangle = k! a_k. \)
Możemy zatem, mając dowolny proces \( \{ x_t \} \ \) w którym trend dany jest wielomianem niewiadomego rzędu zróżnicować go, powiedzmy m-razy, aż znajdziemy taki zbiór danych \( \{ \nabla^m x_t \} \), który będzie realizacją stochastycznego procesu stacjonarnego.
W rzeczywistych realizacjach tej metody zwyczajowo wystarczy 1-2 krotne różnicowanie szeregu.
- Uwaga
Jeżeli amplituda danych otrzymanych metodą 3 wykazuje wzrost wraz z wzrostem t, to można temu zapobiec logarytmując na początku dane wejściowe
- \( \{ y_t = \ln (x_t) \} \ \)
a dopiero później różnicując potomny proces \( \{ y_t \} \ \).
function [z] = asc_diff(x, k = 2) if ( isempty (x) || (!isvector(x)) ) error ("asc_diff: pierwszy agrument musi byc niepustym wektorem"); return; endif if ( k < 1 ) error("k > 0, podałeś k = %d", k); return endif for i = 1 : k z = x(2 : length(x)) - x(1 : length(x)-1); x = z; endfor endfunction
Eliminacja Trendu oraz Sezonowości
Poprzednie metody w naturalny sposób dają się rozszerzyć i mogą zostać zaadaptowane do szeregów czasowych wykazujących zarówno trend jak i sezonowość
- \( X_t = m_t + s_t + Y_t \ \)
gdzie
- \( \begin{align} (i)~~ &E Y_t = 0,\\ (ii)~~ &s_{t+d} = s_t, \ \\ (iii)~~ &\sum_{j=1}^d S_j = 0. \end{align} \)
Metoda S1: Metoda małego trendu
Zgodnie z powyższymi założeniami mamy
- \( \sum_{j=1}^d S_j = 0. ~~~ \ \) (MS1.1)
Dodatkowo, jeżeli o naszych danych wejściowych możemy powiedzieć, że dla danego okresu d trend jest stały, to w j-tym okresie
- \( \hat{m}_j = \frac{1}{s} \sum_{k=1}^s X_{jk}, \ \) (MS1.2)
czyli
- \( \hat{s}_k = \frac{1}{N} \sum_{j=1}^N (X_{jk} - \hat{m}_j), \ \), N - ilość okresów. (MS1.3)
Powyższy wzór spełnia zależność (M1). W rezultacie obliczamy wektor reszt.
- \( Y_{jk} = X_{jk} - \hat{m}_j - \hat{s}_k,\)
- \( ~~~~~j = 1,\dots,N, k=1,\dots,d\ \). (MS1.4)
\( Y_{jk} \ \) to reszta (błąd) dla k-tej wartości w <j>-tym okresie.
- Przykład
- Rozpatrzymy przykładowy (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS1.1). Trend, zgodnie z założeniami powinien być dostatecznie mały, aby na danym okresie mógł być uznany za stały. Aby zilustrować działanie metody 1, obliczymy kolejno \( \hat{m}_j \) (Rys.MS1.2), \( \hat{s}_k \) (Rys.MS1.3) i ostatecznie oszacujemy błąd (Rys.MS1.4) korzystając z formuły (MS1.4). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości.
function [m_hat, s_hat, Y] = asc_small_trend(x, d) if ( isempty (x) || (!isvector(x)) ) error ("asc_diff: pierwszy agrument musi byc niepustym wektorem"); return; endif if ( d < 1 ) error("d > 0, podałeś d = %d", d); return; endif ilosc_okresow = floor(length(x) / d); %%% % średnia na okres m_hat = zeros(1,ilosc_okresow); for j = 1 : ilosc_okresow for k = 1 : d m_hat(j) += x((j-1)*d + k); endfor endfor m_hat /= d; %%% % sezonowość s_hat = zeros(1,d); for k = 1 : d for j = 1 : ilosc_okresow s_hat(k) += x((j-1)*d + k) - m_hat(j); endfor endfor s_hat /= ilosc_okresow; %%% % wektor reszt for j = 1 : ilosc_okresow for k = 1 : d Y((j-1)*d + k) = x((j-1)*d + k) - m_hat(j) - s_hat(k); endfor endfor endfunction
Metoda S2: Szacowanie metodą średniej kroczącej
Technika ta ma lekką przewagą nad swoją poprzedniczką, bowiem nie musimy zakładać, że średnia liczona na okresie zmian jest praktycznie stała.
- Przepis
- Zakładamy, że mamy wektor obserwacji \( \{ X_t \}, ~~~t=1,\dots,N \ \).
- Na początku szacujemy trend poprzez zastosowanie specjalnego filtra, tak, by wygładzić część odpowiedzialną za sezonowość i by zmniejszyć szum.
- Jeżeli okres jest liczbą parzystą (d = 2q), to stosujemy następujący filtr \( \hat{m}_t = (\frac{1}{2} X_{t-q} + X_{t-q+1} + \ \) \( \dots + X_{t+q-1} + X_{t+q})/d, ~~~q < t \le N-q. \ \)
- Jeżeli okres jest liczbą nieparzystą, to stosujemy zwykłą średnią kroczącą.
- Kolejny krok to próba oszacowania sezonowości. Dla każdej wartości \( k = 1, \dots, d \) obliczamy średnią odchyleń
- \( w_k = \{ (x_{k + jd} - \hat{m}_{k + jd}): q < k + jd \le N-q \}. \)
- Suma właśnie obliczonych odchyleń niekoniecznie daje zero. Komponent sezonowy lepiej jest zatem liczyć ze wzoru
- \( \hat{s}_k = w_k - \frac{1}{d} \sum_{i=1}^{d} w_i, ~~~k=1,\dots,d \ \),
- mając dodatkowo na uwadze, że \( \hat{s}_k = \hat{s}_{k-d}, ~~~k>d. \ \) Dane pozbawione sezonowości można zapisać jako
- \( d_t = X_t - \hat{s}_t \ \).
- Na sam koniec szacujemy trend posługując się najbardziej odpowiednią metodą, np. filtrem MA, czy też próbując dopasować wielomian do danych \( \{ d_t \} \ \). Dzięki temu otrzymujemy ostatecznie wektor trendu \( \hat{m}_t \ \).
- Ostatecznie obliczamy wektor reszt, standardowo odejmując komponenty sezonowości i trendu od danych wejściowych
- \( Y_t = X_t - \hat{m}_t - \hat{s}_t, ~~~t=1,\dots,N. \ \)
- Przykład
- Rozpatrzymy inny (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS2.1). Trend tym razem może być dowolnie duży, tu zastosujemy trend eksponencjalny. Aby zilustrować działanie metody 1, obliczymy kolejno wstępny trend (metodą odpowiedniej średniej kroczącej) \( \hat{m}_j \) (Rys.MS2.2), średni okres \( \hat{s}_k \) (Rys.MS2.3), prawdziwy trend \( d_t \) (Rys.MS2.4) i ostatecznie oszacujemy błąd (Rys.MS1.5). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości.
function [m_hat, s_hat, d, Y] = asc_seasonal_moving_average(x, d = -1, stopien_MA = 17) if ( isempty (x) || (!isvector(x)) ) error ("asc_seasonalMA: pierwszy agrument musi byc niepustym wektorem"); return; endif if ( d == -1 ) error("Jeszcze nie zakodowane..."); elseif (d == 0) error("asc_seasonalMA: d > 0, podałeś d = %d", d); return; endif length_x = length(x); ilosc_okresow = floor(length_x / d); %%% % wstępne wygładzanie danych q = floor(d / 2); switch (mod(d, 2)) case 0 % even for i = q + 1 : length_x - q m_hat(i - q) = sum(x(i - q:i + q)) - 0.5 * (x(i - q) + x(i + q)); endfor m_hat /= d; case 1 % odd m_hat = asc_moving_average(x, d); endswitch %%% % obliczanie sezonowości % (1) średnia odchyleń for k = 1 : d w(k) = mean(x(q + k: d :length_x - q - 1) - m_hat(1 + k: d :length(m_hat))); endfor % (2) średni okres zmian s_hat = w - mean(w); % (3) sezonowość s_hat_long = repmat(s_hat, 1, ilosc_okresow - 1); %%% % dane bez sezonowości d = x(q + 1:length_x - q - 1) - s_hat_long; %%% % reszty % (trend obliczany jest prostą średnią kroczącą) floor_stopien_MA_pol = floor(stopien_MA / 2); Y = x(q + 1 + floor_stopien_MA_pol:length_x - q - 1 - floor_stopien_MA_pol) - asc_moving_average(d, stopien_MA) - s_hat_long(1 + floor_stopien_MA_pol:length(s_hat_long) - floor_stopien_MA_pol); endfunction
Metoda S3: Różnicowanie z przesunięciem d
Metodę, którą poznaliśmy nieco wcześniej (różnicowanie do danych stacjonarnych) możemy łatwo dostosować do danych zmiennych sezonowo z okresem zmienności d poprzez wprowadzenie operatora różnicowego z opóźnieniem d, zdefiniowanego jako
- \( \nabla_d X_t = X_t - X_{t-d} = (1 - B^d) X_t. \ \)
- Uwaga
- nie powinno się mylić operatora \( \nabla_d = (1 - B^d) \ \) z operatorem \( \nabla^d = (1 - B)^d. \ \)
Stosując operator \( \nabla_d \ \) do danych wykazujących sezonowość (i trend) \( \{ X_t \} \ \)
- \( X_t = m_t + s_t + Y_t, \ \)
gdzie \( \{ s_t \} \ \) jest komponentem periodyczną funkcję o okresie d dostajemy
- \( \nabla_d X_t = m_t - m_{t-d} + Y_t - Y_{t-d}. \ \)
Otrzymujemy w ten sposób nowy szereg czasowy składający się z dwóch komponentów:
- trendu \( m_t - m_{t-d} \ \) i
- szumu (reszt) \( Y_t - Y_{t-d}. \ \)
Aby obliczyć wektor reszt, trend możemy usunąć dowolną metodą zaprezentowaną wyżej, np: używając operatora \( \nabla^k.\ \)
- Przykład
- Rozpatrzymy kolejny (sztuczny) szereg czasowy wykazujący zarówno sezonowość, jak i trend (Rys.MS3.1). Trend i tym razem może być dowolnie duży. Aby zilustrować działanie metody S3, usuniemy sezonowość (korzystając z operatora różnicowania z przesunięciem) (Rys.MS3.2) oraz w końcu ostatecznie oszacujemy błąd (podobną metodą - różnicowania) (Rys.MS3.3). Poniżej czytelnik znajdzie propozycję skryptu (m-plik) zawierającego funkcję pozwalającą oszacować wszystkie powyższe wielkości.
function [m, Y] = asc_diffd(x, d, accuracy = 0.001, maxdeg = 5) if ( isempty (x) || (!isvector(x)) ) error ("asc_diffd: pierwszy agrument musi byc niepustym wektorem"); return; endif if ( d == -1 ) error("asc_diffd: Jeszcze nie zakodowane..."); elseif (d == 0) error("asc_diffd: d > 0, podałeś d = %d", d); return; endif %%% % wektor trendu m = x(d : length(x)) - x(1 : length(x)-d+1); %%% % wektor reszt - obliczany przez różnicowanie, do momentu, gdy % osiągniemy żądaną dokładność na zerową średnią reszt for deg = 1 : maxdeg Y = asc_diff(m,deg); if mean(Y) < accuracy break; endif endfor endfunction
Metoda S4: Wygładzanie wykładnicze 3 parametrową metodą Wintersa
Niekiedy dane, które poddajemy dekompozycji posiadają sezonowość multiplikatywną, innym razem addytywną. Właśnie omawiana metoda posiada dwa odrębne mechanizmy dekompozycji sygnału w zależności od typu sezonowości.
Sezonowość multiplikatywna
Zakładamy, że szereg czasowy może być reprezentowany modelem
- \( X_t = (b_1 + b_2 t) s_t + Y_t \ \)
gdzie
- \(b_1\) to podstawowy sygnał (komponent stały),
- \(b_2\) to trend,
- \(s_t\) odpowiada za sezonowość (multiplikatywną),
- \(Y-t\) to wektor reszt (szum, wektor błędów).
Jeden sezon ma długość L okresów. Współczynniki sezonowości są zdefiniowane tak, że sumują się do długości sezonu L
- \( \sum_{1 \le t \le L} s_t = L. \ \)
Model działa również bardzo dobrze jeżeli pozbędziemy się wcześniej trendu \(b_2\).
- Stosowalność
- do szeregów czasowych, w których amplituda sezonowości jest proporcjonalna do średniego poziomu szeregu - do szeregów wykazujących sezonowość multiplikatywną.
- Notacja
- \(R_T \ \) chwilowa wielkość procesu z usuniętą sezonowością pod koniec okresu T,
- \(\hat{R}_t\) oszacowanie szeregu pozbawionego sezonowości,
- \(\hat{G}_t\) oszacowanie trendu,
- \(\hat{S}_t\) oszacowanie komponentu okresowego (sezonowości).
- Procedura
- Krok 1. wygładzanie ogólne
- \( \hat{R}_t = \alpha \frac{X_t}{\hat{S}_{t-L}} + (1 - \alpha) (\hat{R}_{t-1} + \hat{G}_{t-1}), \)
- gdzie \( \alpha \in (0,1) \) to stała wygładzająca. Dzieląc \(X_t\) przez czynnik sezonowy obliczony dla poprzedniego okresu zmian (\(\hat{S}_{t-L}\)) powoduje usunięcie sezonowości z danych - pozostawiamy tylko trend i czynnik stały.
- Krok 2. wygładzanie trendu
- \( \hat{G}_t = \beta (\hat{S}_{t} - \hat{S}_{t-1}) + (1 - \beta) \hat{G}_{t-1}, \)
- gdzie \( \beta \in (0,1) \) to druga stała wygładzająca. Proste wygładzanie trendu z danych pozbawionych sezonowości.
- Krok 3. wygładzanie komponentu okresowego
- \( \hat{S}_t = \gamma \frac{X_t}{\hat{S}_{t}} + (1 - \gamma) \hat{S}_{t-L}, \)
- gdzie \( \gamma \in (0,1) \) to druga stała wygładzająca.
- Wartości początkowe dla algorytmu
- aby algorytm działał dobrze wymagana jest znajomość pierwszych dwóch okresów danych (2L). Jeżeli znamy m okresów, oraz niech \(\hat{X}_j\), j = 1,2,...,mL oznacza średnią z j-tego sezonu, to
- 1. trend
- \( \hat{G}_1 = \frac{\hat{X}_m - \hat{X}_1}{(m-1)L}, \)
- 2. zmienna pozbawiona sezonowości
- \( \hat{R}_1 = \hat{X}_1 - \frac{L}{2} \hat{G}_1, \)
- 3. komponent sezonowości
- obliczany dla każdego kroku czasowego \(t = 1, 2, \dots, mL\)
- \( \hat{S}_t = \frac{\hat{X}_t}{\hat{X}_i - [(L+1)/2 - j]\hat{G}_1}, \)
- gdzie \(\hat{X}_i\) oznacza średnią w okresie odpowiadającym t, a j to pozycja okresu t w sezonie. Powyższe równanie daje m oszacowań komponentu sezonowego na każdy okres
- \( \hat{S}_t = \frac{1}{m} \sum_{k=0}^{m-1} \hat{S}_{t+kL}, ~~~t = 1,2,\dots,L,\)
- \( \hat{S}_t(0) = \hat{S}_t \frac{L}{\sum_{t=1}^{L} \hat{S}_{t}}, ~~~t = 1,2,\dots,L.\)
Sezonowość addytywna
Zakładamy, że szereg czasowy może być reprezentowany modelem
- \( X_t = b_1 + b_2 t + s_t + Y_t \ \)
gdzie
- \(b_1\) to podstawowy sygnał (komponent stały),
- \(b_2\) to trend,
- \(s_t\) odpowiada za sezonowość (addytywną),
- \(Y-t\) to wektor reszt (szum, wektor błędów).
Jeden sezon ma długość L okresów. Współczynniki sezonowości są zdefiniowane tak, że sumują się do długości sezonu L
- \( \sum_{1 \le t \le L} s_t = 0. \ \)
Model działa również bardzo dobrze jeżeli pozbędziemy się wcześniej trendu \(b_2\).
- Stosowalność
- do szeregów czasowych, w których amplituda sezonowości jest niezależna od średniego poziomu szeregu - do szeregów wykazujących sezonowość addytywną.
- Notacja
- \(R_T \ \) chwilowa wielkość procesu z usuniętą sezonowością pod koniec okresu T,
- \(\hat{R}_t\) oszacowanie szeregu pozbawionego sezonowości (pod koniec okresu t),
- \(\hat{G}_t\) oszacowanie trendu (pod koniec okresu t),
- \(\hat{S}_t\) oszacowanie komponentu okresowego (sezonowości, pod koniec okresu t).
- Procedura
- Krok 1. wygładzanie ogólne
- \( \hat{R}_t = \alpha (X_t - \hat{S}_{t-L}) + (1 - \alpha) (\hat{R}_{t-1} + \hat{G}_{t-1}), \)
- gdzie \( \alpha \in (0,1) \) to stała wygładzająca.
- Krok 2. wygładzanie trendu
- \( \hat{G}_t = \beta (\hat{S}_{t} - \hat{S}_{t-1}) + (1 - \beta) \hat{G}_{t-1}, \)
- gdzie \( \beta \in (0,1) \) to druga stała wygładzająca. Proste wygładzanie trendu z danych pozbawionych sezonowości (tak jak poprzednio).
- Krok 3. wygładzanie komponentu okresowego
- \( \hat{S}_t = \gamma (X_t-\hat{S}_{t}) + (1 - \gamma) \hat{S}_{t-L}, \)
- gdzie \( \gamma \in (0,1) \) to druga stała wygładzająca.
- Wartości początkowe dla algorytmu
- jak wyżej.
- Uwaga 1
- wszystkie powyższe metody możemy stosować wymiennie i łącznie, nie musimy ograniczać się do jednej wybranej na samym początku naszej analizy.
Wszystkie prezentowane kody źródłowe do programów w języku Matlab / Octave jeżeli nie sprecyzowano inaczej dostępne są na licencji LGPL v3: ASC