plot.wp(wp, nvwp = NULL, main = "Wavelet Packet Decomposition", sub, first.level = 5, scaling = "compensated", dotted.turn.on = 5, color.force = F, WaveletColor = 2, NodeVecColor = 3, fast = F, SmoothedLines = T, ...)
global
- one scale factor is chosen for the whole plot.
The scale factor depends on the coefficient to be included on the
plot that has the largest absolute value. The global
option is useful when comparing coefficients that might appear anywhere
in the plot; by.level
- a scale factor is chosen for
each resolution level in the plot. The scale factor for a level
depends on the coefficient in that level that has the largest
absolute value. The by.level
option is useful when
you wish to compare coefficients within a resolution level.
The other option is compensated
which is the same as global
except
for that finer scales' coefficients are scaled up by a factor
of SQRT(2) for compensated
.
I don't know why compensated is the default option?
Given a wavelet packet object wp it possesses
nlevels(wp)
resolution levels. In WaveThresh the coarsest level is level 0 and the
finest is level nlevels-1
. For wavelet packets the number
of packets at level j
is 2^(nlevels-j)
.
This function plots the wavelet packet coefficients. At the bottom of the plot the original input function (if present) is plotted. Then levels above the original plot successively coarser wavelet packet coefficients. From the Mallat transform point of view smoothing goes up off the the left of the picture and detail to the right. The packets are indexed from 0 to the number of packets going from left to right within each resolution level.
The function has the ability to draw wavelet coefficients in a different color using the WaveletColor argument.
Optionally, if a node vector wavelet packet object is also supplied then packets in that node vector can be highlighted in a another colour determined by the NodeVecColor.
Packets are drawn on the plot and can be separated by vertical dotted lines.
The resolution levels at which this happens can be controlled by the
dotted.turn.on
option. The coarsest resolution level to
be drawn is controlled by the first.level
option.
# # Generate some test data # v <- DJ.EX()$blocks # # Let's plot these to see what they look like # plot(v, type="l") # # Do a wavelet packet transform # vwp <- wp(v) # # And create a node vector # vnv <- MaNoVe(vwp) # # Now plot the wavelet packets with the associated node vector # plot(vwp, vnv, color.force=T, WaveletColor="red", dotted.turn.on=7) # # The wavelet coefficients are plotted in red. Packets from the node vector # are depicted in green. The node vector gets plotted after the wavelet # coefficients so the green packets overlay the red (retry the plot command # but without the vnv object to see just the # wavelet coefficients). The vertical dotted lines start at resolution # level 7. # #