SCM

SCM Repository

[latticeextra] Annotation of /pkg/R/timeseries.R
ViewVC logotype

Annotation of /pkg/R/timeseries.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 95 - (view) (download)

1 : deepayan 2
2 : felix 54 xyplot.stl <-
3 : deepayan 2 function(x, data = NULL,
4 :     outer = TRUE,
5 :     layout = c(1, 4),
6 : felix 54 strip = FALSE,
7 : deepayan 2 strip.left = TRUE,
8 :     as.table = TRUE,
9 :     ylab = "",
10 :     between = list(y = 0.5),
11 : felix 54 panel =
12 : deepayan 2 function(..., type) {
13 :     if (packet.number() == 4) type <- "h"
14 :     panel.xyplot(..., type = type)
15 :     },
16 :     ...)
17 :     {
18 :     stopifnot(is.null(data))
19 :     mstrip <- missing(strip.left)
20 :     sers <- x$time.series
21 :     ## ncomp <- ncol(sers)
22 :     data <- rowSums(sers)
23 :     X <- cbind(data, sers)
24 :     colnames(X) <- c("data", colnames(sers))
25 : felix 54 ans <-
26 : deepayan 2 xyplot(X,
27 : felix 54 outer = outer,
28 : deepayan 2 layout = layout,
29 : felix 54 strip = strip,
30 : deepayan 2 strip.left = strip.left,
31 :     as.table = as.table,
32 :     ylab = ylab,
33 :     between = between,
34 :     panel = panel,
35 :     ...,
36 : felix 54 default.scales =
37 : deepayan 2 list(x = list(axs = "i"),
38 : felix 54 y =
39 :     list(relation = "free",
40 : deepayan 2 tick.number = 3,
41 :     rot = 0)))
42 :     if (mstrip)
43 :     {
44 :     mx <- min(rx <- abs(sapply(ans$y.limits, diff)))
45 :     int <- cbind(-mx / rx, mx / rx)
46 : felix 54 ans <-
47 :     update(ans,
48 :     strip.left =
49 : deepayan 2 strip.custom(horizontal = FALSE,
50 :     strip.names = FALSE,
51 :     strip.levels = TRUE,
52 :     shingle.intervals = int))
53 :     }
54 :     ans
55 :     }
56 :    
57 :    
58 :    

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge