[Dplr-commits] r709 - in pkg/dplR: . R

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

Author: mvkorpel
Date: 2013-10-29 14:46:44 +0100 (Tue, 29 Oct 2013)
New Revision: 709

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/DESCRIPTION
   pkg/dplR/R/redfit.R
Log:
In redfit(), use slightly faster .rowSums() instead of rowSums()

Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2013-10-28 10:48:42 UTC (rev 708)
+++ pkg/dplR/ChangeLog	2013-10-29 13:46:44 UTC (rev 709)
@@ -1,6 +1,9 @@
 * CHANGES IN dplR VERSION 1.5.8
 
+File: redfit.R
+--------------
 
+- Use slightly faster .rowSums() instead of rowSums()
 
 * CHANGES IN dplR VERSION 1.5.7
 

Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2013-10-28 10:48:42 UTC (rev 708)
+++ pkg/dplR/DESCRIPTION	2013-10-29 13:46:44 UTC (rev 709)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.5.8
-Date: 2013-10-28
+Date: 2013-10-29
 Authors at R: c(person("Andy", "Bunn", role = c("aut", "cph",
         "cre", "trl"), email = "andy.bunn at wwu.edu"), person("Mikko",
         "Korpela", role = c("aut", "trl")), person("Franco", "Biondi",

Modified: pkg/dplR/R/redfit.R
===================================================================
--- pkg/dplR/R/redfit.R	2013-10-28 10:48:42 UTC (rev 708)
+++ pkg/dplR/R/redfit.R	2013-10-29 13:46:44 UTC (rev 709)
@@ -353,7 +353,7 @@
             varr1 <- df * sum(grr[, i])
             grr[, i] <- varx / varr1 * grr[, i]
         }
-        grrsum <- rowSums(grr)
+        grrsum <- .rowSums(grr, nfreq, nsim)
     } else {
         grrsum <- numeric(nfreq)
         for (i in seq_len(nsim)) {