\Header{cpgram}{Plot Cumulative Periodogram}
\keyword{ts}{cpgram}
\keyword{hplot}{cpgram}
\begin{Description}\relax
Plots a cumulative periodogram.\end{Description}
\begin{Usage}
\begin{verbatim}
cpgram(ts, taper=0.1, main=
       paste("Series: ", deparse(substitute(ts))), ci.col="blue")
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{ts}] a univariate time series
\item[\code{taper}] proportion tapered in forming the periodogram
\item[\code{main}] main title
\item[\code{ci.col}] colour for confidence band.
\end{ldescription}
\end{Arguments}
\begin{Value}
None.\end{Value}
\begin{Section}{Side Effects}
Plots the cumulative periodogram in a square plot.\end{Section}
\begin{Note}\relax
From package \pkg{MASS}.\end{Note}
\begin{Author}\relax
B.D. Ripley\end{Author}
\begin{Examples}
\begin{ExampleCode}
par(pty = "s", mfrow = c(1,2))
data(lh)
cpgram(lh)
lh.ar <- ar(lh, order.max = 9)
cpgram(lh.ar$resid, main = "AR(3) fit to lh")

data(UKLungDeaths)
cpgram(ldeaths)
\end{ExampleCode}
\end{Examples}

