단순 지수평활법
ses() 함수는 단순 지수평활법(SES)으로 얻은 예측을 생성합니다. 모수는 최소제곱추정으로 추정되며, 여러분은 시계열과 예측 구간만 지정하면 돼요. 기본 예측 기간은 h = 10년입니다.
> args(ses)
function (y, h = 10, ...)
> fc <- ses(oildata, h = 5)
> summary(fc)
또한 처음으로 summary()와 fitted()를 autolayer()와 함께 사용합니다. autolayer()는 autoplot()과 비슷하지만, 새 그림을 만들지 않고 기존 도표에 "레이어"를 추가해요.
여기서는 1897년부터 2016년까지의 보스턴 마라톤 연간 우승 기록인 marathon 데이터에 이러한 함수를 적용해 보겠습니다. 데이터는 작업 공간에 준비되어 있어요.
이 연습은 강의의 일부입니다
R로 배우는 시계열 예측
연습 안내
ses()함수를 사용해 앞으로 10년의 우승 기록을 예측하세요.summary()함수로 모수와 기타 정보를 확인하세요.autoplot()함수로 예측 결과를 시각화하세요.fitted()와autolayer()를 사용해 훈련 데이터에 대한 한 걸음 앞 예측(적합값)을 도표에 추가하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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(___))