Functional and Parallel time series cross-validation

[This article was first published on Modern Toolmaking, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Rob Hyndman has a great post on his blog with example on how to cross-validate a time series model.  The basic concept is simple:  You start with a minimum number of observations (k), and fit a model (e.g. an arima model) to those observations.  You then forecast out to a certain horizon (h), and compare your forecasts to the actual values for that series.  You then add the next observation (k+1), and repeat the process until you run out of data.  This gives you a matrix of forecast accuracies at various horizons (1 step ahead, 2 steps ahead, all the way to h steps ahead).  You then take the mean of each column of the matrix, and get the model’s average accuracy at that horizon.  This method is analogous to leave-one-out cross-validation.

There are 2 variations to this method:
1. Use a fixed training window.  In this case, when you add an observation to your “training” series, you drop the first observation, keeping the training window fixed.
2. Increment by n at each step, rather than 1.  This is analogous to k-fold cross-validation.  In this case, your forecast error is more unstable, and it’s a good idea to average error across ALL horizons when evaluating the model.

This technique is very useful, because it allows you to define a horizon of interest (say 1 month or 12 months), and then asses how well your model performs at that horizon.  Furthermore, you can use this data to compare various models, including different types of models, such as linear models vs. arima models vs. exponential smoothing model.

However, time series cross-validation is very time consuming, particularly for arima and exponential smoothing models.  Therefore, I thought it would be a good idea to parallelize Hyndman’s algorithm, using the foreach package in R.  Furthermore, I wrapped the entire thing into a single function, which allows you to easily change the type of cross validation by altering the minObs (k), stepSize (n), and fixed-length or growing window parameters.  My function takes an argument tsControl, which contains each of these parameters, as well a summary function to calculate your error metric (such as MAE).  I’ve structured it similarly to the caret packages’s train function.

The FUN argument should be a function that takes 2 parameters: x and h.  x is a univariate time series, and h is a forecast horizon.  The function should build a model using x, and then return h forecasts.  Here are some examples of this function, for linear models, arima models, and exponential smoothing models.  As you can see, they all return the same output: a vector of h point forecasts.

Here is my replication of Hyndman’s example.  Note that I create a “tsControl” list which contains the parameters for the cross-validation algorithm.  This example is not parallelized, but you can easily change that by loading your favorite “foreach” backend, such as doMC or doRedis.  Note that parallelization introduces a lot of overhead, and actually seems to slow down the linear model.  I recomend only running the more complicated models (such as ets and Arima) in parallel.

This function produces the same results as Hyndman’s example:
This code is very early stage, and could contain bugs.  Please comment if you find one, or if you think of any ways to improve this algorithm.  Feel free to try it out with your own forecasting functions!

To leave a comment for the author, please follow the link and comment on their blog: Modern Toolmaking. offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)