Update Forecast.R