The R Project SVN R

Rev

Rev 61153 | Rev 68948 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61153 Rev 61168
Line 20... Line 20...
20 
  Butterworths. Series R.
 20 
  Butterworths. Series R.
21 
}
 21 
}
22 
\examples{
 22 
\examples{
23 
\dontrun{require(stats); require(graphics)
 23 
\dontrun{require(stats); require(graphics)
24 
nott <- window(nottem, end = c(1936,12))
 24 
nott <- window(nottem, end = c(1936,12))
25 
fit <- arima(nott,order = c(1,0,0), list(order = c(2,1,0), period = 12))
 25 
fit <- arima(nott, order = c(1,0,0), list(order = c(2,1,0), period = 12))
26 
nott.fore <- predict(fit, n.ahead = 36)
 26 
nott.fore <- predict(fit, n.ahead = 36)
27 
ts.plot(nott, nott.fore$pred, nott.fore$pred+2*nott.fore$se,
 27 
ts.plot(nott, nott.fore$pred, nott.fore$pred+2*nott.fore$se,
28 
        nott.fore$pred-2*nott.fore$se, gpars = list(col = c(1,1,4,4)))
 28 
        nott.fore$pred-2*nott.fore$se, gpars = list(col = c(1,1,4,4)))
29 
}}
 29 
}}
30 
\keyword{datasets}
 30 
\keyword{datasets}