在 tbats() 中覆盖 box cox 变换会给出负预测下限？

如何解决在 tbats() 中覆盖 box cox 变换会给出负预测下限？

y <- msts(dat.day.ts$DailyEnergy,seasonal.periods=c(7,30.4,182.4),start=c(2007,1,1))
fit <- tbats(y) 
plot(fit,main="Multiple Season Decomposition") # plot1.1
fc <- forecast(fit,h=365,lambda="auto",bias.adj=TRUE)
plot(fc)

我有一个名为“dat.day.ts”的多元 xts 对象。我想预测 DailyEnergy 列。当我使用带有默认参数的 tbats() 时，Box cox 转换是在内部完成的。现在 plot1.1 没有显示似乎是错误的季节性分量。The raw data plot shows seasonality

然而，预测值为正。

当我在 tbats() 中设置 use.Boxcox=FALSE 时，plot1.2 显示季节性分量。但是，在某些情况下，预测的下限为负。这是通过以下代码完成的。

y <- msts(dat.day.ts$DailyEnergy,1))
fit <- tbats(y,use.Box.cox=FALSE) 
plot(fit,main="Multiple Season Decomposition") # plot1.2
fc <- forecast(fit,lambda=NULL,bias.adj=FALSE)
plot(fc)

负值为 95% CI。