小编Tom*_*hor的帖子

我需要一种方法来打印预测值.

我需要打印深蓝色线值,如果可能的话,还需要打印下图中灰色区域的值.

打印该值或打印2019预测值的代码是什么？

library(forecast)

timese <- ts(WWWusage, start = c(2008, 1), end = c(2016, 1), frequency = 12)

### Structural Time Series Model 
# Trend likelihood    
fit <- StructTS(timese, "trend")

### Make the plot
plot(forecast(fit, level = c(70, 90)), 
     sub = "Confidence Interval 70% ~ 90% or Determined by user", 
     ylab = "Y Axis Variable",
     main = "Forecast Linear Structural Model @ Trend-Wise",
     ylim = c(0, 400))