[Dplr-commits] r680 - branches/redfit/R

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

Author: mvkorpel
Date: 2013-09-04 10:20:05 +0200 (Wed, 04 Sep 2013)
New Revision: 680

Modified:
   branches/redfit/R/pointer.R
Log:
Removed unused variable 'nseries'


Modified: branches/redfit/R/pointer.R
===================================================================
--- branches/redfit/R/pointer.R	2013-09-04 08:00:54 UTC (rev 679)
+++ branches/redfit/R/pointer.R	2013-09-04 08:20:05 UTC (rev 680)
@@ -26,7 +26,6 @@
     if (nyrs < 2) {
         stop("'rwl' must have at least 2 rows")
     }
-    nseries <- ncol(rwl2)
     gv <- rwl2[-1, , drop=FALSE] / rwl2[-nyrs, , drop=FALSE]
     out <- matrix(NA_real_, nrow=nyrs - 1, ncol=7)
     colnames(out) <- c("Year", "Nb.series", "Perc.pos", "Perc.neg",