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

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

Author: mvkorpel
Date: 2014-04-02 13:37:58 +0200 (Wed, 02 Apr 2014)
New Revision: 758

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/DESCRIPTION
   pkg/dplR/R/corr.rwl.seg.R
Log:
corr.rwl.seg.R: Removed yr.range() function in favor of yr.range() in
helpers.R.  Good catch, Andy!


Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2014-04-02 09:54:32 UTC (rev 757)
+++ pkg/dplR/ChangeLog	2014-04-02 11:37:58 UTC (rev 758)
@@ -4,8 +4,14 @@
 -------------------------
 - Added chron.plot to export list.
 - Added rho.series to export list.
-- Added rwl.plot as an S3Method.
+- Added plot.rwl as an S3Method.
 
+File: corr.rwl.seg.R
+--------------------
+
+- Removed yr.range() function in favor of yr.range() in helpers.R.
+  They are identical for all practical purposes.
+
 File: series.rho.R
 -------------------------
 - New function series.rho. This needs more work.

Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-04-02 09:54:32 UTC (rev 757)
+++ pkg/dplR/DESCRIPTION	2014-04-02 11:37:58 UTC (rev 758)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.6.0
-Date: 2014-04-01
+Date: 2014-04-02
 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/corr.rwl.seg.R
===================================================================
--- pkg/dplR/R/corr.rwl.seg.R	2014-04-02 09:54:32 UTC (rev 757)
+++ pkg/dplR/R/corr.rwl.seg.R	2014-04-02 11:37:58 UTC (rev 758)
@@ -9,15 +9,6 @@
                          }),
                          ...) {
 
-    ## helper function
-    yr.range <- function(x, yr.vec=as.numeric(names(x))) {
-        if (any(mask <- !is.na(x))) {
-            range(yr.vec[mask])
-        } else {
-            c(NA, NA)
-        }
-    }
-
     ## run error checks
     qa.xdate(rwl, seg.length, n, bin.floor)