Peramalan berbobot eksponensial

Peramalan di R

Rob J. Hyndman

Professor of Statistics at Monash University

Pemusatan eksponensial sederhana

Notasi Peramalan: $\hat y_{t + h \vert t} = \text{ ramalan titik } \ \hat y_{t + h} \ \text{berdasarkan data }\ y_1,...,y_t$

Persamaan Peramalan: $\hat y_{t + h \vert t} = \alpha y_t + \alpha (1-\alpha ) y_{t-1} + \alpha (1-\alpha )^2 y_{t-2} +...$

$$dengan \ 0 \leq \alpha \leq 1 $$

Pemusatan eksponensial sederhana

Observasi	$\alpha$ = 0.2	$\alpha$ = 0.4	$\alpha$ = 0.6	$\alpha$ = 0.8
$y_t$	0.2	0.4	0.6	0.8
$y_{t-1}$	0.16	0.24	0.24	0.16
$y_{t-2}$	0.128	0.144	0.096	0.032
$y_{t-3}$	0.1024	0.0864	0.0384	0.0064
$y_{t-4}$	(0.2)(0.8)$^4$	(0.4)(0.6)$^4$	(0.6)(0.4)$^4$	(0.8)(0.2)$^4$
$y_{t-5}$	(0.2)(0.8)$^5$	(0.4)(0.6)$^5$	(0.6)(0.4)$^5$	(0.8)(0.2)$^5$

Pemusatan eksponensial sederhana

Bentuk komponen
Persamaan ramalan	$\hat{y}_{t+h \mid t} = \ell_t$
Persamaan pemulusan	$\ell_t = \alpha y_t + (1-\alpha)\ell_{t-1}$

$\ell_t \ $ adalah level (nilai halus) deret pada waktu $t$
Kita memilih $\alpha$ dan $\ell_0$ dengan meminimalkan SSE:

$$SSE = \sum_{t=1}^T (y_t - \hat y_{t\vert t-1})^2$$

Contoh: produksi minyak

oildata <- window(oil, start = 1996)    # Data minyak
fc <- ses(oildata, h = 5)               # Pemusatan eksponensial sederhana
summary(fc)

Metode ramalan: Pemusatan eksponensial sederhana
Informasi model:
Pemusatan eksponensial sederhana
Call:
 ses(y = oildata, h = 5)
  Parameter pemulusan:
    alpha = 0.8339
  Keadaan awal:
    l = 446.5759
  sigma:  28.12
*** Dipersingkat karena keterbatasan ruang

Contoh: produksi minyak

autoplot(fc) +
  ylab("Oil (millions of tonnes)") + xlab("Year")

Grafik pemusatan eksponensial sederhana untuk minyak

Ayo berlatih!

Peramalan di R