arima.forecast(x, model, n, end, sigma2=<<see below>>, xreg=NULL,
reg.coef=NULL)
Either end or n must be specified. If both are specified, they must agree.
# Fit an ARIMA model to the ship data and forecast one year beyond the end of
# the data. Plot the series along with forecast means +/- two standard errors
model <- list(list(order=c(0,1,1)),list(order=c(0,1,1),period=12))
ship.fit <- arima.mle(ship,model=model)
ship.fore <- arima.forecast(ship,n=12,model=ship.fit$model)
tsplot(ship,ship.fore$mean,ship.fore$mean+2*ship.fore$std.err,
ship.fore$mean-2*ship.fore$std.err)