[Xts-commits] r803 - pkg/xts/R

[noreply at r-forge.r-project.org]

Author: bodanker
Date: 2014-03-19 16:14:12 +0100 (Wed, 19 Mar 2014)
New Revision: 803

Modified:
   pkg/xts/R/toperiod.R
Log:
- patch to.frequency; thanks to Ilya Kipnis


Modified: pkg/xts/R/toperiod.R
===================================================================
--- pkg/xts/R/toperiod.R	2014-02-14 14:40:05 UTC (rev 802)
+++ pkg/xts/R/toperiod.R	2014-03-19 15:14:12 UTC (rev 803)
@@ -255,7 +255,7 @@
     cnames <- NULL
 
   # start to.frequency-specific code
-  if (missing(by)) by <- 1:NROW(x)
+  if (missing(by)) by <- rep(1L, nrow(x))
   byVec <- cumsum(by)
   bins <- byVec %/% k
   bins[1] <- 0