\Header{smooth}{Median Smoothing}
\keyword{robust}{smooth}
\keyword{smooth}{smooth}
\begin{Usage}
\begin{verbatim}
smooth(x)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\texttt{x}] a vector or time series
\end{ldescription}
\end{Arguments}
\begin{Description}
This function applies the smoothing method \emph{3RSR}
to \texttt{x}.  \emph{3R} stands for \bold{R}epeated running
\texttt{\Link{median}}s of \bold{3}.\end{Description}
\begin{Value}
A vector or time series containing the smoothed values.
Note that there are other smoothing methods which provide
rather better results.\end{Value}
\begin{References}
Tukey (1977). \emph{E.D.A}; see ref.\ in \texttt{\Link{line}}.\end{References}
\begin{SeeAlso}
\texttt{\Link{lowess}}.\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
library(eda)
data(presidents)
presidents[is.na(presidents)] <- 0
plot(presidents)
lines(smooth(presidents))
\end{ExampleCode}
\end{Examples}

