Pemulusan eksponensial sederhana
Fungsi ses() menghasilkan prakiraan menggunakan simple exponential smoothing (SES). Parameternya diestimasi dengan metode kuadrat terkecil. Anda hanya perlu menentukan deret waktunya dan horizon prakiraan; waktu prakiraan bawaan adalah h = 10 tahun.
> args(ses)
function (y, h = 10, ...)
> fc <- ses(oildata, h = 5)
> summary(fc)
Anda juga akan menggunakan summary() dan fitted(), bersama autolayer() untuk pertama kalinya, yang mirip dengan autoplot() tetapi menambahkan sebuah "layer" ke plot alih-alih membuat plot baru.
Di sini, Anda akan menerapkan fungsi-fungsi tersebut pada marathon, waktu kemenangan tahunan pada Boston Marathon dari 1897–2016. Data tersedia di workspace Anda.
Latihan ini adalah bagian dari kursus
Peramalan di R
Petunjuk latihan
- Gunakan fungsi
ses()untuk memprakirakan 10 tahun ke depan dari waktu kemenangan. - Gunakan fungsi
summary()untuk melihat parameter model dan informasi lainnya. - Gunakan fungsi
autoplot()untuk memplot hasil prakiraan. - Tambahkan prakiraan satu-langkah untuk data pelatihan, atau nilai hasil pemodelan (fitted values), ke plot menggunakan
fitted()danautolayer().
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Use ses() to forecast the next 10 years of winning times
fc <- ___(___, h = ___)
# Use summary() to see the model parameters
___
# Use autoplot() to plot the forecasts
___
# Add the one-step forecasts for the training data to the plot
autoplot(___) + autolayer(fitted(___))