Enkel exponentiell utjämning
Funktionen ses() producerar prognoser med hjälp av enkel exponentiell utjämning (SES). Parametrarna skattas med minsta kvadratmetoden. Du behöver bara ange tidsserien och prognoshorisonten – standardvärdet är h = 10 år.
> args(ses)
function (y, h = 10, ...)
> fc <- ses(oildata, h = 5)
> summary(fc)
Du kommer också att använda summary() och fitted(), samt autolayer() för första gången. autolayer() fungerar som autoplot(), men lägger till ett "lager" i ett befintligt diagram i stället för att skapa ett nytt.
Här ska du tillämpa dessa funktioner på marathon, som innehåller de årliga vinnartiderna i Bostonmaratón från 1897 till 2016. Data finns tillgängliga i din arbetsmiljö.
Den här övningen är en del av kursen
Prognoser i R
Övningsinstruktioner
- Använd funktionen
ses()för att prognostisera de kommande 10 årens vinnartider. - Använd funktionen
summary()för att se modellparametrar och annan information. - Använd funktionen
autoplot()för att rita upp prognoserna. - Lägg till ettstegspronoserna för träningsdata – det vill säga de anpassade värdena – i diagrammet med hjälp av
fitted()ochautolayer().
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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(___))