df <- read.csv(path, skip = 6)
origin_date <- ymd("2019-01-01")
df$index <- as.numeric(rownames(df))-1
df$ds <- origin_date+ddays(df$index-1)
future <- make_future_dataframe(m, periods = 365)
forecast <- predict(m, future)
tail(forecast[c('ds', 'yhat', 'yhat_lower', 'yhat_upper')])
prophet_plot_components(m, forecast)
dyplot.prophet(m, forecast)