bikes_retrain.R

# Retrain using train and validation set
retrain <- bind_rows(train, valid)
retrain$cap <- best_params$capacity
m <- prophet(retrain, growth = best_params$growth, holidays = holidays,
             seasonality.prior.scale = best_params$seasonality_prior_scale,
             changepoint.prior.scale = best_params$changepoint_prior_scale,
             holidays.prior.scale = best_params$holidays_prior_scale)

future <- make_future_dataframe(m, periods = 184)
future$cap <- best_params$capacity

forecast <- predict(m, future)