putD.wd3D             package:wavethresh             R Documentation

_P_u_t _w_a_v_e_l_e_t _c_o_e_f_f_i_c_i_e_n_t _a_r_r_a_y _i_n_t_o _a _3_D _w_a_v_e_l_e_t _o_b_j_e_c_t

_D_e_s_c_r_i_p_t_i_o_n:

     This function put an array of wavelet coefficients, corresponding
     to a particular resolution level into a 'wd' wavelet decomposition
     object. 

     The pyramid of coefficients in a wavelet decomposition (returned
     from the 'wd3D' function, say) are packed into a single array in
     'WaveThresh3'.

_U_s_a_g_e:

     putD.wd3D(x, v, ...)

_A_r_g_u_m_e_n_t_s:

       x: 3D Wavelet decomposition object into which you wish to insert
          the wavelet coefficients.

       v: This argument is a list with the following components: 

     _a A 3-dimensional array with each dimension of length equal to two
          to the power of lev which is the level at which you wish to
          insert the coefficients into x.

     _l_e_v The level at which you wish to insert the coefficients into
          'x'. 

     _b_l_o_c_k A character string indicating which coefficient block you
          wish to insert the coefficients into. This can be one of GGG,
          GGH, GHG, GHH, HGG, HGH, HHG. Additionally this can be HHH
          when the lev argument above is zero.

     ...: any other arguments

_D_e_t_a_i_l_s:

     The need for this function is a consequence of the pyramidal
     structure of Mallat's algorithm and the memory efficiency gain
     achieved by storing the pyramid as an array. 

     Note that this function is a method for the generic function
     'putD'.

_V_a_l_u_e:

     A new 'wd3D.object' is returned with the coefficients at level
     'lev' in block given by block are replaced by the contents of 'a',
     if 'a' is of the correct dimensions!

_R_E_L_E_A_S_E:

     Version 3.9.6 Copyright Guy Nason 1997

_S_e_e _A_l_s_o:

     'accessD', 'accessD.wd3D', 'print.wd3D', 'putD', 'putDwd3Dcheck',
     'summary.wd3D', 'threshold.wd3D', 'wd3D', 'wd3D.object', 'wr3D'.

_E_x_a_m_p_l_e_s:

     #
     # Generate some test data
     #
     #a <- array(rnorm(8*8*8), dim=c(8,8,8))
     #
     # Perform the 3D DWT
     #
     #awd3D <- wd3D(a)
     #
     # Replace the second level coefficients by uniform random variables
     # in block GGG (for some reason)
     #
     #
     #newsubarray <- list(a = array(runif(4*4*4), dim=c(4,4,4)), lev=2, block="GGG")
     #awd3D <- putD(awd3D,  v=newsubarray)

