SCM

SCM Repository

[latticeextra] Diff of /pkg/R/panel.xblocks.R
ViewVC logotype

Diff of /pkg/R/panel.xblocks.R

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

revision 193, Thu Dec 31 10:45:11 2015 UTC revision 194, Fri Jan 1 11:17:13 2016 UTC
# Line 78  Line 78 
78  panel.xblocks.ts <-  panel.xblocks.ts <-
79      function(x, y = x, ...)      function(x, y = x, ...)
80  {  {
81      if (!is.function(y))      if (!is.function(y)) y <- as.vector(y)
         y <- as.vector(y)  
82      panel.xblocks(as.vector(time(x)), y, ...)      panel.xblocks(as.vector(time(x)), y, ...)
83  }  }
84    
85  panel.xblocks.zoo <-  panel.xblocks.zoo <-
86      function(x, y = x, ...)      function(x, y = x, ...)
87  {  {
88      if (!is.function(y))      if (!is.function(y)) y <- zoo::coredata(y)
89          y <- coredata(y)      panel.xblocks(zoo::index(x), y, ...)
     panel.xblocks(index(x), y, ...)  
90  }  }
91    

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

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