SCM

SCM Repository

[latticeextra] Diff of /pkg/R/horizonplot.R
ViewVC logotype

Diff of /pkg/R/horizonplot.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 192, Wed Dec 30 12:37:55 2015 UTC revision 193, Thu Dec 31 10:45:11 2015 UTC
# Line 7  Line 7 
7    
8  horizonplot.default <-  horizonplot.default <-
9      function(x, data = NULL, ...,      function(x, data = NULL, ...,
10                 nbands = 3L,
11               horizonscale = NA,               horizonscale = NA,
12               origin = function(y) na.omit(y)[1],               origin = function(y) na.omit(y)[1],
13               colorkey = FALSE, legend = NULL,               colorkey = FALSE, legend = NULL,
14               panel = panel.horizonplot,               panel = panel.horizonplot,
15               prepanel = prepanel.horizonplot,               prepanel = prepanel.horizonplot,
              nbands = 3L,  
16               col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"),               col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"),
17               strip = FALSE, strip.left = TRUE,               strip = FALSE, strip.left = TRUE,
18               par.strip.text = list(cex = 0.6),               par.strip.text = list(cex = 0.6),
19               colorkey.digits = 3, # nbands ?,               colorkey.digits = 3,
20               #layout = c(1, NA), ## TODO pending new lattice release               layout = c(1, NA),
21               groups = NULL,               groups = NULL,
22               default.scales =               default.scales =
23                 list(y = list(relation = "free", axs = "i",                 list(y = list(relation = "free", axs = "i",
# Line 31  Line 31 
31                    col.regions = col.regions,                    col.regions = col.regions,
32                    strip = strip, strip.left = strip.left,                    strip = strip, strip.left = strip.left,
33                    par.strip.text = par.strip.text,                    par.strip.text = par.strip.text,
34                    #layout = layout,                    layout = layout,
35                    default.scales = default.scales,                    default.scales = default.scales,
36                    nbands = nbands)                    nbands = nbands)
37      ans$call <- match.call()      ans$call <- match.call()
# Line 109  Line 109 
109    
110  prepanel.horizonplot <-  prepanel.horizonplot <-
111      function(x, y, ..., horizonscale = NA,      function(x, y, ..., horizonscale = NA,
112               origin = function(y) na.omit(y)[1],               nbands = 3L,
113               nbands=3L)               origin = function(y) na.omit(y)[1])
114  {  {
115      if (is.function(origin))      if (is.function(origin))
116          origin <- origin(y)          origin <- origin(y)

Legend:
Removed from v.192  
changed lines
  Added in v.193

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