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