library(forecast) f.pred <- forecast(X, h=12) plot(f.pred) sum(f.pred[["mean"]]) # 2694.908