oil_forecast_xts <- xts(oil_forecast_data[,-1], order.by = oil_forecast_data[,1])