预测函数的预测值

Predicted Values From Forecast functions

我的问题很简单。

library(fpp)
ts <- ausbeer # seasonal with period 4 
f.seasonal <-snaive(ts, h = 20)

我想看看2010年第三季度的啤酒产量是多少,我可以

f.seasonal$mean

它returns table:

      Qtr1 Qtr2 Qtr3 Qtr4
2008                 473
2009  420  390  410  473
2010  420  390  410  473
2011  420  390  410  473
2012  420  390  410  473
2013  420  390  410     

显然,我可以在 table 中看到答案。有没有一段代码可以更容易地从预测对象中保留预测值?

fc <- window(f.seasonal$mean, start=c(2010,3), end=c(2010,3))