试试这个看看。
newdata是一个模型吧？

使用newdata$加上你要的成分就会出来你想要的。看下边的例子。

> str(newdata)
List of 9
$ fitted      : Time-Series [1:6, 1:3] from 3 to 8: 3 4 5 6 7 8 2 3 4 5 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:3] "xhat" "level" "trend"
$ x           : Time-Series [1:8] from 1 to 8: 1 2 4 4 5 5 7 8
$ alpha       : Named num 0
  ..- attr(*, "names")= chr "alpha"
$ beta        : Named num 0
  ..- attr(*, "names")= chr "beta"
$ gamma       : logi FALSE
$ coefficients: Named num [1:2] 8 1
  ..- attr(*, "names")= chr [1:2] "a" "b"
$ seasonal    : chr "additive"
$ SSE         : num 2
$ call        : language HoltWinters(x = olddata, gamma = FALSE)
- attr(*, "class")= chr "HoltWinters"
> newdata$fitted
Time Series:
Start = 3
End = 8
Frequency = 1
  xhat level trend
3    3     2     1
4    4     3     1
5    5     4     1
6    6     5     1
7    7     6     1
8    8     7     1