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