SCM

SCM Repository

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

Diff of /pkg/R/simpleSmoothTs.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 49  Line 49 
49          ## find indices of aggregated time series in the original data          ## find indices of aggregated time series in the original data
50          ii <- findInterval(time(xtsf), time(xts))          ii <- findInterval(time(xtsf), time(xts))
51          ## extract elements of time index corresponding to aggregated series          ## extract elements of time index corresponding to aggregated series
52          ans <- zoo(as.matrix(xtsf), time(x)[ii])          ans <- zoo::zoo(as.matrix(xtsf), time(x)[ii])
53      } else {      } else {
54          ans <- x          ans <- x
55          coredata(ans) <- coredata(xtsf)          zoo::coredata(ans) <- zoo::coredata(xtsf)
56      }      }
57      ans      ans
58  }  }

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