Hyndman's r package example - modified with data source from http://future.aae.wisc.edu/data/