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

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

Author: mvkorpel
Date: 2014-12-23 10:10:33 +0100 (Tue, 23 Dec 2014)
New Revision: 927

Modified:
   pkg/dplR/DESCRIPTION
   pkg/dplR/R/wavelet.plot.R
   pkg/dplR/man/wavelet.plot.Rd
Log:
Simpler default of crn.ylim in wavelet.plot(), edited the .Rd accordingly

Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-12-22 21:46:38 UTC (rev 926)
+++ pkg/dplR/DESCRIPTION	2014-12-23 09:10:33 UTC (rev 927)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.6.1
-Date: 2014-12-20
+Date: 2014-12-23
 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/wavelet.plot.R
===================================================================
--- pkg/dplR/R/wavelet.plot.R	2014-12-22 21:46:38 UTC (rev 926)
+++ pkg/dplR/R/wavelet.plot.R	2014-12-23 09:10:33 UTC (rev 927)
@@ -7,7 +7,7 @@
              key.lab = parse(text = paste0("\"", gettext("Power"), "\"^2")),
              add.spline = FALSE, f = 0.5, nyrs = NULL,
              crn.col = "black", crn.lwd = 1,coi.col='black',
-             crn.ylim = c(min(wave.list$y)*0.95,max(wave.list$y)*1.05), 
+             crn.ylim = range(wave.list$y) * c(0.95, 1.05),
              side.by.side = FALSE,
              useRaster = FALSE, res = 150, reverse.y = FALSE)
 {

Modified: pkg/dplR/man/wavelet.plot.Rd
===================================================================
--- pkg/dplR/man/wavelet.plot.Rd	2014-12-22 21:46:38 UTC (rev 926)
+++ pkg/dplR/man/wavelet.plot.Rd	2014-12-23 09:10:33 UTC (rev 927)
@@ -15,7 +15,8 @@
              key.lab = parse(text=paste0("\"", gettext("Power"), "\"^2")),
              add.spline = FALSE, f = 0.5, nyrs = NULL,
              crn.col = "black", crn.lwd = 1,coi.col='black',
-             crn.ylim = range(wave.list$y)*1.1, side.by.side = FALSE,
+             crn.ylim = range(wave.list$y) * c(0.95, 1.05),
+             side.by.side = FALSE,
              useRaster = FALSE, res = 150, reverse.y = FALSE)
 }
 \arguments{