# NOT RUN {
plot(hor, type='c') # plot data and
text(hor, labels=1:4, col=c(1,4,2,6), cex=.9) # add quarter labels
#
plot(stl(hor, s.window=15)) # fit structural model
# }
Run the code above in your browser using DataLab