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

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

Author: jryan
Date: 2012-11-11 05:54:32 +0100 (Sun, 11 Nov 2012)
New Revision: 742

Modified:
   pkg/xts/R/endpoints.R
Log:
o  starting at 1 not 0 (R not C :-) )


Modified: pkg/xts/R/endpoints.R
===================================================================
--- pkg/xts/R/endpoints.R	2012-11-11 04:49:10 UTC (rev 741)
+++ pkg/xts/R/endpoints.R	2012-11-11 04:54:32 UTC (rev 742)
@@ -50,7 +50,7 @@
     # x[which(diff(as.POSIXlt(index(x))$mon) != 0)[seq(0,328,12)]]
     ep <- .Call("endpoints", posixltindex$mon, 1L, 1L, PACKAGE='xts')
     if(k > 1)
-      ep[seq(0,length(ep),k)]
+      ep[seq(1,length(ep),k)]
     else ep
   } else 
   if(on == 'weeks') {