stl() 함수를 사용한 계절분해

1949 ~ 1960년까지 국제선 항공의 월간 총승객수를 가지고 있는 AirPassengers 데이터를 이용하여 계절분해를 해 본다.

plot(AirPassengers)

AirPassengers.log <- log(AirPassengers)

plot(AirPassengers.log, ylab = "log(AirPassengers)")

AirPassengers.fit <- stl(AirPassengers.log, s.window = "period")

plot(AirPassengers.fit)

AirPassengers.fit$time.series

[출처] 빅데이터 분석도구 R in Action, Robert I. Kabacoff 지음, 신종화/김선업/정희태 옮김, 흥릉과학출판사 p394 ~ 295