如何在R中使用多个季节进行预测？

Question

我正在尝试仅使用四个月的现有数据来预测今年剩余的数据，但是我遇到了麻烦。当我运行预测并绘制结果时，会得到一个预测，假设趋势将继续。但是，我要复制9月份发生的辐条，并于1月底死亡。怎么办？

基本上，我希望时间序列能够识别出峰值将在2019年底再次出现。

ts_streams = streams %>% group_by(Date) %>% summarise(starts = sum(Starts)) %>% select(starts)
ts = ts(ts_streams ,start = decimal_date(as.Date("2018-09-11")), frequency = 365)
y <- msts(ts, seasonal.periods=c(365, 7))
fit <- tbats(y)
fc <- forecast(fit, h = 365)
plot(fc)