helper function to make prediction data + making predictions in general

[njtierney]

# helper function to make prediction data (expand out to all cases)
df_pred <- prediction_data(
  df,
  date_range,
  countries
)

# post-hoc prediction function - with options for presenting the uncertainty
pred <- predict(m, df_pred, se.fit = TRUE)