Hi there, I tried the code that was sent. Thanks a lot. It doesn't seem to work. Here is what I'm working with... inc<-ts(incdat[,2], start=1968.000, freq=12) par(mfrow=c(1,2)) plot(stl(log(inc), s.window="periodic")) -- View this message in context: http://r.789695.n4.nabble.com/stl-function-tp2283891p2284002.html Sent from the R help mailing list archive at Nabble.com.