预测函数的预测值

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))