library(seasonal) 10 Year Forecast of AirPassengers seasonality m <- seas(AirPassengers, x11.appendfcst = "yes", forecast.maxlead = 120) plot(series(m, "x11.adjustfac"))