draw.wp              package:wavethresh              R Documentation

_D_r_a_w _w_a_v_e_l_e_t _p_a_c_k_e_t _a_s_s_o_c_i_a_t_e_d _w_i_t_h _a _w_p _o_b_j_e_c_t.

_D_e_s_c_r_i_p_t_i_o_n:

     This function draws a wavelet packet associated with a
     'wp.object'.

_U_s_a_g_e:

     draw.wp(wp, level, index, plot.it=TRUE, main, sub, xlab, ylab, ...)

_A_r_g_u_m_e_n_t_s:

      wp: The 'wp' class object whose associated wavelet packet you
          wish to draw. 

   level: The resolution level of wavelet packet in the wavelet packet
          decomposition that you wish to draw (corresponds to scale).

   index: The packet index of the wavelet packet in the wavelet packet
          decomposition that you wish to draw (corresponds to number of
          oscillations).

 plot.it: If TRUE then the wavelet packet is plotted on the active
          graphics device. If FALSE then the y-coordinates of the
          packet are returned. Note that x-coordinates are not returned
          (the packet is periodic on its range anyway). 

    main: 

     sub: 

    xlab: 

    ylab: 

     ...: Additional arguments to pass to the 'drawwp.default' function
          which does the drawing. In particular, arguments can be set
          to choose between drawing the mother wavelet and scaling
          function, to set the resolution of the plot, to choose
          between drawing one and two dimensional pictures. 

_D_e_t_a_i_l_s:

     This function extracts the filter component from the 'wp' object
     (which is constructed using the 'filter.select' function) to
     decide which wavelet packet family to draw. Once decided the
     'drawwp.default' function is used to actually do the drawing.

_V_a_l_u_e:

     If the 'plot.it' argument is set to 'TRUE' then nothing is
     returned. Otherwise, if 'plot.it' is set to 'FALSE' the
     coordinates of what would have been plotted are returned.

_R_E_L_E_A_S_E:

     Version 3.9.6 Copyright Guy Nason 1998

_S_e_e _A_l_s_o:

     'filter.select', 'wp', 'wp.object', 'drawwp.default'.

_E_x_a_m_p_l_e_s:

     #
     # Generate some test data
     #
     #test.data <- example.1()$y
     #ts.plot(test.data)
     #
     # Now do the wavelet packet transform of the data using the Daubechies
     # least-asymmetric wavelet N=10 (the default arguments in
     # wp).
     #
     #tdwp <- wp(test.data)
     #
     # What happens if we try to draw this new tdwp object?
     #
     #draw(tdwd, level=4, index=12)

