Display stl fits with Lattice
## S3 method for class 'stl' xyplot(x, data = NULL, outer = TRUE, layout = c(1, 4), strip = FALSE, strip.left = TRUE, as.table = TRUE, ylab = "", between = list(y = 0.5), panel = function(..., type) { if (packet.number() == 4) type <- "h" panel.xyplot(..., type = type) }, ...)
Unless strip.left
is passed in explicitly, a custom strip will
be drawn, where shaded bars are comparable across panels (representing
the same data range).
Deepayan Sarkar deepayan.sarkar@r-project.org
## example from ?stl xyplot(stl(log(co2), s.window=21), main = "STL decomposition of CO2 data") ## alternative display data(biocAccess) xyplot(stl(ts(biocAccess$counts[1:(24 * 30)], frequency = 24), "periodic"), strip.left = "strip.default") resizePanels() ## two different spans xyplot(stl(nottem, s.window = 4)) + as.layer(xyplot(stl(nottem, s.window = "periodic")), style = 2) ## components superposed xyplot(stl(nottem, s.window = 4), superpose=TRUE, screens = list(data = "trend", trend = "trend", "residuals"), strip.left = TRUE, layout = c(1,2))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.