forecast.HoltWinters预测出的预测值导出问题

    大神们，请用forecast.HoltWinters函数预测出的数值，如何导出啊？？？
for example::
Perpselfforecasts2 <- forecast:::forecast.HoltWinters(Perpselfforecasts, h=1)


预测值在Perpselfforecasts2变量里，但是我输入Perpselfforecasts2，他会出现很多数值，我只想要里面的fit的值，请问如何导出，不是显示哦

来人啦，各位大神们~，很急很急

return(structure(list(method = "HoltWinters", model = object,
        level = level, mean = pmean, lower = lower, upper = upper,
        x = x, series = deparse(object$call$x), fitted = fitted,
        residuals = x - fitted), class = "forecast"))
这是返回的结构体，我想索引里面的fitted的值

Perpselfforecasts2
     Point Forecast   Lo 80   Hi 80    Lo 95    Hi 95
2017        76.7875 61.8353 91.7397 53.92009 99.65491

想要这个Forecast值呀，有没有大神稍微指点一下

已解决：Perpselfforecasts2frame=as.data.frame(Perpselfforecasts2)
fore=Perpselfforecasts2frame[1,1]，即可完成

已解决：Perpselfforecasts2frame=as.data.frame(Perpselfforecasts2)
fore=Perpselfforecasts2frame[1,1]，即可完成