basis                package:waveslim                R Documentation

_P_r_o_d_u_c_e _B_o_o_l_e_a_n _V_e_c_t_o_r _f_r_o_m _W_a_v_e_l_e_t _B_a_s_i_s _N_a_m_e_s

_D_e_s_c_r_i_p_t_i_o_n:

     Produce a vector of zeros and ones from a vector of basis names.

_U_s_a_g_e:

     basis(x, basis.names)

_A_r_g_u_m_e_n_t_s:

       x: 

basis.names: 

_D_e_t_a_i_l_s:

     None.

_V_a_l_u_e:

     Vector of zeros and ones.

_S_e_e _A_l_s_o:

     'dwpt'.

_E_x_a_m_p_l_e_s:

     data(acvs.andel8)
     x <- hosking.sim(1024, acvs.andel8[,2])
     x.dwpt <- dwpt(x, "la8", 7)
     ## Select orthonormal basis from wavelet packet tree
     x.basis <- basis(x.dwpt, c("w1.1","w2.1","w3.0","w4.3","w5.4","w6.10",
                                "w7.22","w7.23"))
     for(i in 1:length(x.dwpt))
       x.dwpt[[i]] <- x.basis[i] * x.dwpt[[i]]
     ## Resonstruct original series using selected orthonormal basis
     y <- idwpt(x.dwpt, x.basis)
     par(mfrow=c(2,1), mar=c(5-1,4,4-1,2))
     plot.ts(x, xlab="", ylab="", main="Original Series")
     plot.ts(y, xlab="", ylab="", main="Reconstructed Series")

