\HeaderA{cpgram}{Plot Cumulative Periodogram}{cpgram}
\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}
require(graphics)

par(pty = "s", mfrow = c(1,2))
cpgram(lh)
lh.ar <- ar(lh, order.max = 9)
cpgram(lh.ar$resid, main = "AR(3) fit to lh")

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

