data("AirPassengers")
plot(AirPassengers)
library(forecast)

decompose(AirPassengers)
## $x
## Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
## 1949 112 118 132 129 121 135 148 148 136 119 104 118
## 1950 115 126 141 135 125 149 170 170 158 133 114 140
## 1951 145 150 178 163 172 178 199 199 184 162 146 166
## 1952 171 180 193 181 183 218 230 242 209 191 172 194
## 1953 196 196 236 235 229 243 264 272 237 211 180 201
## 1954 204 188 235 227 234 264 302 293 259 229 203 229
## 1955 242 233 267 269 270 315 364 347 312 274 237 278
## 1956 284 277 317 313 318 374 413 405 355 306 271 306
## 1957 315 301 356 348 355 422 465 467 404 347 305 336
## 1958 340 318 362 348 363 435 491 505 404 359 310 337
## 1959 360 342 406 396 420 472 548 559 463 407 362 405
## 1960 417 391 419 461 472 535 622 606 508 461 390 432
##
## $seasonal
## Jan Feb Mar Apr May Jun
## 1949 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1950 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1951 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1952 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1953 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1954 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1955 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1956 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1957 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1958 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1959 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## 1960 -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## Jul Aug Sep Oct Nov Dec
## 1949 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1950 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1951 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1952 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1953 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1954 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1955 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1956 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1957 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1958 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1959 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
## 1960 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
##
## $trend
## Jan Feb Mar Apr May Jun Jul
## 1949 NA NA NA NA NA NA 126.7917
## 1950 131.2500 133.0833 134.9167 136.4167 137.4167 138.7500 140.9167
## 1951 157.1250 159.5417 161.8333 164.1250 166.6667 169.0833 171.2500
## 1952 183.1250 186.2083 189.0417 191.2917 193.5833 195.8333 198.0417
## 1953 215.8333 218.5000 220.9167 222.9167 224.0833 224.7083 225.3333
## 1954 228.0000 230.4583 232.2500 233.9167 235.6250 237.7500 240.5000
## 1955 261.8333 266.6667 271.1250 275.2083 278.5000 281.9583 285.7500
## 1956 309.9583 314.4167 318.6250 321.7500 324.5000 327.0833 329.5417
## 1957 348.2500 353.0000 357.6250 361.3750 364.5000 367.1667 369.4583
## 1958 375.2500 377.9167 379.5000 380.0000 380.7083 380.9583 381.8333
## 1959 402.5417 407.1667 411.8750 416.3333 420.5000 425.5000 430.7083
## 1960 456.3333 461.3750 465.2083 469.3333 472.7500 475.0417 NA
## Aug Sep Oct Nov Dec
## 1949 127.2500 127.9583 128.5833 129.0000 129.7500
## 1950 143.1667 145.7083 148.4167 151.5417 154.7083
## 1951 173.5833 175.4583 176.8333 178.0417 180.1667
## 1952 199.7500 202.2083 206.2500 210.4167 213.3750
## 1953 225.3333 224.9583 224.5833 224.4583 225.5417
## 1954 243.9583 247.1667 250.2500 253.5000 257.1250
## 1955 289.3333 293.2500 297.1667 301.0000 305.4583
## 1956 331.8333 334.4583 337.5417 340.5417 344.0833
## 1957 371.2083 372.1667 372.4167 372.7500 373.6250
## 1958 383.6667 386.5000 390.3333 394.7083 398.6250
## 1959 435.1250 437.7083 440.9583 445.8333 450.6250
## 1960 NA NA NA NA NA
##
## $random
## Jan Feb Mar Apr May
## 1949 NA NA NA NA NA
## 1950 8.4987374 29.1047980 8.3244949 6.6199495 -7.9103535
## 1951 12.6237374 26.6464646 18.4078283 6.9116162 9.8396465
## 1952 12.6237374 29.9797980 6.1994949 -2.2550505 -6.0770202
## 1953 4.9154040 13.6881313 17.3244949 20.1199495 9.4229798
## 1954 0.7487374 -6.2702020 4.9911616 1.1199495 2.8813131
## 1955 4.9154040 2.5214646 -1.8838384 1.8282828 -3.9936869
## 1956 -1.2095960 -1.2285354 0.6161616 -0.7133838 -1.9936869
## 1957 -8.5012626 -15.8118687 0.6161616 -5.3383838 -4.9936869
## 1958 -10.5012626 -23.7285354 -15.2588384 -23.9633838 -13.2020202
## 1959 -17.7929293 -28.9785354 -3.6338384 -12.2967172 4.0063131
## 1960 -14.5845960 -34.1868687 -43.9671717 -0.2967172 3.7563131
## Jun Jul Aug Sep Oct
## 1949 NA -42.6224747 -42.0732323 -8.4785354 11.0593434
## 1950 -25.1527778 -34.7474747 -35.9898990 -4.2285354 5.2260101
## 1951 -26.4861111 -36.0808081 -37.4065657 -7.9785354 5.8093434
## 1952 -13.2361111 -31.8724747 -20.5732323 -9.7285354 5.3926768
## 1953 -17.1111111 -25.1641414 -16.1565657 -4.4785354 7.0593434
## 1954 -9.1527778 -2.3308081 -13.7815657 -4.6868687 -0.6073232
## 1955 -2.3611111 14.4191919 -5.1565657 2.2297980 -2.5239899
## 1956 11.5138889 19.6275253 10.3434343 4.0214646 -10.8989899
## 1957 19.4305556 31.7108586 32.9684343 15.3131313 -4.7739899
## 1958 18.6388889 45.3358586 58.5101010 0.9797980 -10.6906566
## 1959 11.0972222 53.4608586 61.0517677 8.7714646 -13.3156566
## 1960 24.5555556 NA NA NA NA
## Nov Dec
## 1949 28.5934343 16.8699495
## 1950 16.0517677 13.9116162
## 1951 21.5517677 14.4532828
## 1952 15.1767677 9.2449495
## 1953 9.1351010 4.0782828
## 1954 3.0934343 0.4949495
## 1955 -10.4065657 1.1616162
## 1956 -15.9482323 -9.4633838
## 1957 -14.1565657 -9.0050505
## 1958 -31.1148990 -33.0050505
## 1959 -30.2398990 -17.0050505
## 1960 NA NA
##
## $figure
## [1] -24.748737 -36.188131 -2.241162 -8.036616 -4.506313 35.402778
## [7] 63.830808 62.823232 16.520202 -20.642677 -53.593434 -28.619949
##
## $type
## [1] "additive"
##
## attr(,"class")
## [1] "decomposed.ts"
str(decompose(AirPassengers))
## List of 6
## $ x : Time-Series [1:144] from 1949 to 1961: 112 118 132 129 121 135 148 148 136 119 ...
## $ seasonal: Time-Series [1:144] from 1949 to 1961: -24.75 -36.19 -2.24 -8.04 -4.51 ...
## $ trend : Time-Series [1:144] from 1949 to 1961: NA NA NA NA NA ...
## $ random : Time-Series [1:144] from 1949 to 1961: NA NA NA NA NA ...
## $ figure : num [1:12] -24.75 -36.19 -2.24 -8.04 -4.51 ...
## $ type : chr "additive"
## - attr(*, "class")= chr "decomposed.ts"
plot(decompose(AirPassengers))

forecast(AirPassengers,12)
## Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
## Jan 1961 441.8018 419.6256 463.9780 407.8863 475.7174
## Feb 1961 434.1186 407.1668 461.0704 392.8994 475.3379
## Mar 1961 496.6300 460.6291 532.6310 441.5714 551.6887
## Apr 1961 483.2375 443.6210 522.8539 422.6493 543.8256
## May 1961 483.9914 440.0236 527.9591 416.7484 551.2343
## Jun 1961 551.0244 496.3368 605.7120 467.3869 634.6619
## Jul 1961 613.1797 547.3865 678.9728 512.5577 713.8016
## Aug 1961 609.3648 539.2447 679.4850 502.1253 716.6044
## Sep 1961 530.5408 465.4872 595.5944 431.0500 630.0317
## Oct 1961 463.0332 402.8496 523.2168 370.9904 555.0761
## Nov 1961 402.7478 347.4995 457.9961 318.2528 487.2428
## Dec 1961 451.9694 386.7750 517.1638 352.2631 551.6756
plot(forecast(AirPassengers,12))
