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

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

Author: mvkorpel
Date: 2014-05-14 11:00:35 +0200 (Wed, 14 May 2014)
New Revision: 870

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/R/wavelet.plot.R
   pkg/dplR/man/wavelet.plot.Rd
Log:
A tiny change to the default wavelet.levels (floating point accuracy)

Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2014-05-14 08:15:59 UTC (rev 869)
+++ pkg/dplR/ChangeLog	2014-05-14 09:00:35 UTC (rev 870)
@@ -83,6 +83,10 @@
 - Added two options to wavelet.plot().
   'useRaster': draw the filled contours as a raster image? (default 'FALSE')
   'res': resolution of the filled contours when 'useRaster' is 'TRUE'
+- A subtle change to the default value of wavelet.levels: To get
+  the sequence 0, 0.1, 0.2, ..., 1 it is best to use (0:10)/10
+  instead of seq(from=0, to=1, by=0.1).  Parentheses in the former are
+  used for clarity of meaning.
 
 * CHANGES IN dplR VERSION 1.6.0
 

Modified: pkg/dplR/R/wavelet.plot.R
===================================================================
--- pkg/dplR/R/wavelet.plot.R	2014-05-14 08:15:59 UTC (rev 869)
+++ pkg/dplR/R/wavelet.plot.R	2014-05-14 09:00:35 UTC (rev 870)
@@ -1,6 +1,6 @@
 wavelet.plot <-
     function(wave.list,
-             wavelet.levels = quantile(wave.list$Power, probs=seq(from=0, to=1, by=0.1)),
+             wavelet.levels = quantile(wave.list$Power, probs=(0:10)/10),
              add.coi = TRUE, add.sig = TRUE, x.lab = gettext("Time"),
              period.lab = gettext("Period"), crn.lab = gettext("RWI"),
              key.cols = rev(rainbow(length(wavelet.levels)-1)),

Modified: pkg/dplR/man/wavelet.plot.Rd
===================================================================
--- pkg/dplR/man/wavelet.plot.Rd	2014-05-14 08:15:59 UTC (rev 869)
+++ pkg/dplR/man/wavelet.plot.Rd	2014-05-14 09:00:35 UTC (rev 870)
@@ -8,7 +8,7 @@
 \usage{
 wavelet.plot(wave.list,
              wavelet.levels = quantile(wave.list$Power,
-                                       probs = seq(from=0, to=1, by=0.1)),
+                                       probs = (0:10)/10),
              add.coi = TRUE, add.sig = TRUE, x.lab = gettext("Time"),
              period.lab = gettext("Period"), crn.lab = gettext("RWI"),
              key.cols = rev(rainbow(length(wavelet.levels)-1)),