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

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

Author: mvkorpel
Date: 2014-05-20 12:08:45 +0200 (Tue, 20 May 2014)
New Revision: 890

Modified:
   pkg/dplR/DESCRIPTION
   pkg/dplR/R/corr.rwl.seg.R
   pkg/dplR/R/wavelet.plot.R
Log:
Internal details


Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-05-19 18:50:06 UTC (rev 889)
+++ pkg/dplR/DESCRIPTION	2014-05-20 10:08:45 UTC (rev 890)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.6.1
-Date: 2014-05-19
+Date: 2014-05-20
 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-05-19 18:50:06 UTC (rev 889)
+++ pkg/dplR/R/corr.rwl.seg.R	2014-05-20 10:08:45 UTC (rev 890)
@@ -260,7 +260,6 @@
                 t(apply(com.segs, 2, yr.range, yr.vec=yrs))
 
             ## polygons for these bins (go down or up from series line)
-            y.deviation <- y.offset[odd.even]
             guides.x.base <-
                 c(these.bins[, 1], these.bins[length(this.seq), 2] + 1)
             ## Ticks at 1) first year of each bin,

Modified: pkg/dplR/R/wavelet.plot.R
===================================================================
--- pkg/dplR/R/wavelet.plot.R	2014-05-19 18:50:06 UTC (rev 889)
+++ pkg/dplR/R/wavelet.plot.R	2014-05-20 10:08:45 UTC (rev 890)
@@ -72,7 +72,6 @@
     if (isTRUE(reverse.y)) {
         ylim <- rev(ylim)
     }
-    z <- Power
 
     ## plot set up
     if (side.by.side) {
@@ -131,7 +130,7 @@
     ## with .filled.contour() as of R-2.15.0
     cl <- quote(.filled.contour(as.double(x),
                                 as.double(period2),
-                                z,
+                                Power,
                                 as.double(wavelet.levels),
                                 key.cols))
     if (useRaster2) {