[Dplr-commits] r716 - pkg/dplR/R

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

Author: mvkorpel
Date: 2013-11-09 22:59:24 +0100 (Sat, 09 Nov 2013)
New Revision: 716

Modified:
   pkg/dplR/R/redfit.R
Log:
Commented out unused variable fac2


Modified: pkg/dplR/R/redfit.R
===================================================================
--- pkg/dplR/R/redfit.R	2013-11-09 21:58:17 UTC (rev 715)
+++ pkg/dplR/R/redfit.R	2013-11-09 21:59:24 UTC (rev 716)
@@ -1507,7 +1507,7 @@
     nseg <- length(t)
     ## useful factor for various windows
     fac1 <- nseg / 2 - 0.5
-    fac2 <- 1 / (fac1 + 1)
+    ## fac2 <- 1 / (fac1 + 1)
     tlen <- t[nseg] - t[1]
     tlenFull <- nseg * tlen / (nseg - 1)
     tPeak <- t[nseg] - tlenFull / 2