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

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

Author: mvkorpel
Date: 2014-05-14 11:39:02 +0200 (Wed, 14 May 2014)
New Revision: 871

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/DESCRIPTION
   pkg/dplR/man/wavelet.plot.Rd
Log:
Alternative color palette in example of wavelet.plot()

Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2014-05-14 09:00:35 UTC (rev 870)
+++ pkg/dplR/ChangeLog	2014-05-14 09:39:02 UTC (rev 871)
@@ -9,9 +9,12 @@
 File: DESCRIPTION
 -----------------
 
-- New Suggested packages: Biobase, dichromat, knitr, tikzDevice.
-  These are for document building (see math-dplR.pdf below) and
-  openPDF (math-dplR.pdf is not available through vignette())
+- New Suggested packages: Biobase, dichromat, knitr, tikzDevice,
+  RColorBrewer. Of these, dichromat, knitr, and tikzDevice are for document
+  building (see math-dplR.pdf below).  Biobase is for making access to
+  math-dplR.pdf easier with openPDF().  RColorBrewer provides an
+  alternative palette to an example in wavelet.plot.Rd.
+
 - New Imported package: png.
 
 File: common.interval.R

Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-05-14 09:00:35 UTC (rev 870)
+++ pkg/dplR/DESCRIPTION	2014-05-14 09:39:02 UTC (rev 871)
@@ -22,7 +22,7 @@
         digest (>= 0.2.3), lattice (>= 0.13-6), png (>= 0.1-1),
         stringr (>= 0.4), XML (>= 2.1-0)
 Suggests: Biobase, dichromat (>= 1.2-1), foreach, forecast, iterators,
-        knitr, RUnit (>= 0.4.25), tikzDevice, waveslim
+        knitr, RColorBrewer, RUnit (>= 0.4.25), tikzDevice, waveslim
 Description: This package contains functions for performing tree-ring
         analyses, IO, and graphics.
 LazyData: no

Modified: pkg/dplR/man/wavelet.plot.Rd
===================================================================
--- pkg/dplR/man/wavelet.plot.Rd	2014-05-14 09:00:35 UTC (rev 870)
+++ pkg/dplR/man/wavelet.plot.Rd	2014-05-14 09:39:02 UTC (rev 871)
@@ -82,6 +82,12 @@
 out.wave <- morlet(y1 = CAMstd, x1 = Years, p2 = 9, dj = 0.1,
                    siglvl = 0.99)
 wavelet.plot(out.wave)
+\dontrun{
+## Alternative palette with better separation of colors
+if (require(RColorBrewer)) {
+  wavelet.plot(out.wave, key.cols=rev(brewer.pal(10, "Spectral")))
+}
+}
 levs <- quantile(out.wave$Power, probs = c(0, 0.5, 0.75, 0.9, 0.99))
 wavelet.plot(out.wave, wavelet.levels = levs, add.sig = FALSE,
              key.cols = c("white", "green", "blue", "red"))