預測函數的預測值

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