来自预测功能的预测值

Question

我的问题非常简单。

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

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

f.seasonal$mean

返回表格：

      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     

显然，我可以在表格中看到答案。是否有一段代码可以更容易地从预测对象中保留预测值？

Answer 1

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