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.