如何在R中以原始单位绘制转换后的时间序列ETS预测？

有没有一种简单的方法可以从R中的预测包中以原始单位绘制转换后的时间序列ETS预测

library(forecast)
AP   <- AirPassengers
fit1 <- ets(log(AP), model="AAA")
fit2 <- ets(BoxCox(AP, BoxCox.lambda(AP)), model="AAA")
plot(forecast(fit1)) # Log Transformed
plot(forecast(fit2)) # Box-Cox Transformed

如何以AP的原始单位绘制最后两行？看看地图

同样，是否有一种简单的方法可以将预测Fit1和预测Fit2的置信区间进行反向转换

---

注意：不确定这是否应该存在于上而不是上？

阅读帮助文件始终是一个好主意。你会发现ets有一个lambda参数，它满足你的需要

library(forecast)
AP   <- AirPassengers
fit1 <- ets(AP, model="AAA", lambda=0)
fit2 <- ets(AP, model="AAA", lambda = BoxCox.lambda(AP))
plot(forecast(fit1)) 
plot(forecast(fit2)) 

---

谢谢@RobHyndman-我不确定我会从阅读帮助文件中推断出这一点。谢谢你的精彩表演！和