powered by
seasadj(object, ...)
decompose
stl
tbats
lines(seasadj(decompose(AirPassengers,"multiplicative")),col=4)
Run the code above in your browser using DataLab