Forecasting with AutoRegressive (AR) Model in R

Step 2: Create Forecast

We can now use the predict() function to create a forecast using the fitted AR model. It takes as its inputs, the model object that we created in step 1, and an additional parameter n.ahead which establishes the forecast horizon, that is, how many steps (periods) in the future we want to create the forecast. In our example, we will provide n.ahead=20, which will create forecast for next 20 steps which corresponds to 20 days for our daily data.

The object generated by the predict() command contains two time series: 1) $pred which contains the forecasted values and 2) $se which contains the standard error for the forecast. We will use the $pred time series to plot the forecast and the $se time series to add confidence intervals to our plot.

1> msft_forecast
2$pred
3Time Series:
4Start = 253
5End = 272
6Frequency = 1
7 [1] 62.03064 61.92331 61.81796 61.71456 61.61307 61.51346 61.41569
8 [8] 61.31973 61.22554 61.13309 61.04236 60.95330 60.86588 60.78009
9[15] 60.69588 60.61323 60.53210 60.45248 60.37432 60.29762
10$se
11Time Series:
12Start = 253
13End = 272
14Frequency = 1
15 [1] 0.7675185 1.0754465 1.3051026 1.4933081 1.6544932 1.7961449
16 [7] 1.9227626 2.0373125 2.1418796 2.2379995 2.3268456 2.4093400
17[13] 2.4862246 2.5581077 2.6254964 2.6888192 2.7484426 2.8046829
18[19] 2.8578161 2.9080845
19

For simplicity sake, let's also extract the two series in their own respective variables.

1> msft_forecast_values <- msft_forecast$pred
2> msft_forecast_se <- msft_forecast$se
3

Step 3: Plot the Forecast

We can now use the plot.ts() function to first plot the original data and then add points for the forecasted values using the points() function as shown below:

1> plot.ts(msft_ts, xlim = c(0, 300), ylim = c(40,80))
2> points(msft_forecast_values , type = "l", col = 2)
3

Notice that while creating the initial plot, we've specified scale limits for x and y axis in order to provision for the forecast values.

Step 4: Add Confidence Intervals to Forecast

We can add a 95% confidence interval to our forecast using the standard error values.

1> points(msft_forecast_values - 2*msft_forecast_se, type = "l", col = 4, lty = 2)
2> points(msft_forecast_values + 2*msft_forecast_se, type = "l", col = 4, lty = 2)
3>
4

You have successfully created your first forecast.