\HeaderA{taper}{TAPER}{taper}
\begin{Description}\relax
Applies a symmetric taper to each side of the SAC records.
\end{Description}
\begin{Usage}
\begin{verbatim}
taper(x, type = c("hanning", "hamming", "cosine"),
      width = 0.05)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] an object of class \code{"rsac"}.
\item[\code{type}] Valid values are: \sQuote{hanning}, \sQuote{hamming}, and
\sQuote{cosine}.
\item[\code{width}] the width of the taper. Values larger than 0.5 should
probably never be used.
\end{ldescription}
\end{Arguments}
\begin{Value}
same as input.
\end{Value}
\begin{Author}\relax
Eric M. Thompson \textless{}eric.thompson@tufts.edu\textgreater{}
\end{Author}
\begin{Examples}
\begin{ExampleCode}

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")

\end{ExampleCode}
\end{Examples}

