Fixed plot.biwavelet so that the COI extends all the way to the botto…

…m of the plot
tgouhier · Feb 25, 2017 · a664cb6 · a664cb6 · lintr-bot · Feb 25, 2017
1 parent f1473af
commit a664cb6
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: biwavelet
 Type: Package
 Title: Conduct Univariate and Bivariate Wavelet Analyses
-Version: 0.20.13
-Date: 2016-12-27
+Version: 0.20.14
+Date: 2017-02-24
 Author: Tarik C. Gouhier, Aslak Grinsted, Viliam Simko
 Maintainer: Tarik C. Gouhier <tarik.gouhier@gmail.com>
 Description: This is a port of the WTC MATLAB package written by Aslak Grinsted

diff --git a/R/plot.biwavelet.R b/R/plot.biwavelet.R
@@ -238,9 +238,12 @@ plot.biwavelet <- function(x, ncol = 64, fill.cols = NULL,
 
   # COI
   if (plot.coi) {
+    # polygon(x = c(x$t, rev(x$t)), lty = lty.coi, lwd = lwd.coi,
+    #         y = c(log2(x$coi),
+    #               rep(max(log2(x$coi), na.rm = TRUE), length(x$coi))),
+    #         col = adjustcolor(col.coi, alpha.f = alpha.coi), border = col.coi)
     polygon(x = c(x$t, rev(x$t)), lty = lty.coi, lwd = lwd.coi,
-            y = c(log2(x$coi),
-                  rep(max(log2(x$coi), na.rm = TRUE), length(x$coi))),
+            y = c(log2(x$coi), rep(max(c(log2(x$coi), x$period), na.rm = TRUE), length(x$coi))),
             col = adjustcolor(col.coi, alpha.f = alpha.coi), border = col.coi)
   }
 

diff --git a/inst/NEWS.Rd b/inst/NEWS.Rd
@@ -2,6 +2,16 @@
 \title{News for Package 'biwavelet'}
 \encoding{UTF-8}
 
+
+\section{Changes in biwavelet version 0.20.14 (2017-02-24)}{
+  \subsection{fixed}{
+    \itemize{
+      \item Fixed \code{plot.biwavelet} so that the COI extends all
+      the way to the bottom of the plot (max of periods)
+    }
+  }
+}
+
 \section{Changes in biwavelet version 0.20.13 (2016-12-27)}{
   \subsection{fixed}{
     \itemize{