Plots the seasonal component by cycle-subseries, with lines emanating from the midmean of the values within each cycle-subseries.
plot_cycle(x, layout = c(x$pars$n.p,1), col ="#0080ff", xlab ="Time", ylab ="Seasonal", panel =function(x, y,...){ lattice::panel.segments(x, rep(.midmean(y), length(x)), x, y, col = col)},...)
Arguments
x: object of class "stlplus".
layout, col, xlab, ylab, panel,: parameters to be passed to xyplot().
Returns
object of class "trellis".
References
R. B. Cleveland, W. S. Cleveland, J. E. McRae, and I. Terpenning (1990) STL: A Seasonal-Trend Decomposition Procedure Based on Loess. Journal of Official Statistics, 6 , 3--73.