The objective is an R script that will generate the best possible forecast for time series data. Forecasts should be made using a variety of methods, e.g. mean, moving average, autoregression, etc. Goodness-of-fit statistics should be calculated for in-sample forecasts (compared to the time series data). The best forecasting method is the one with the lowest in-sample forecast error. The output table should combine in-sample and out-of-sample forecasts.