taper                  package:Rsac                  R Documentation

_T_A_P_E_R

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

     Applies a symmetric taper to each side of the SAC records.

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

     taper(x, type = c("hanning", "hamming", "cosine"),
           width = 0.05)

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

       x: an object of class '"rsac"'.

    type: Valid values are: hanning, hamming, and cosine.

   width: the width of the taper. Values larger than 0.5 should
          probably never be used.

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

     same as input.

_A_u_t_h_o_r(_s):

     Eric M. Thompson <eric.thompson@tufts.edu>

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

     x <- rsac.skeleton(1)
     x[[1]]$amp <- runif(1e3, min = -1)
     x[[1]]$dt <- 1

     plot(x)

     x.t <- taper(x)
     lines(x.t, col = "blue")

