\Header{plot.ppr}{Plot Ridge Functions for Projection Pursuit Regression Fit}
\keyword{hplot}{plot.ppr}
\begin{Description}\relax
Plot ridge functions for projection pursuit regression fit.\end{Description}
\begin{Usage}
\begin{verbatim}
plot(x, ask, type = "o", ...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] A fit of class \code{"ppr"} as produced by a call to \code{ppr}.

\item[\code{ask}] the graphics parameter \code{ask}: see \code{par} for details.
If set to \code{TRUE} will ask between the plot of each cross-section.

\item[\code{type}] the type of line to draw

\item[\code{...}] further graphical parameters

\end{ldescription}
\end{Arguments}
\begin{Value}
None\end{Value}
\begin{Section}{Side Effects}
A series of plots are drawn on the current graphical device, one for
each term in the fit.\end{Section}
\begin{SeeAlso}\relax
\code{\Link{ppr}}, \code{\Link{par}}\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
data(rock)
attach(rock)
area1 <- area/10000; peri1 <- peri/10000
par(mfrow=c(3,2))# maybe: , pty="s")
rock.ppr <- ppr(log(perm) ~ area1 + peri1 + shape,
                data = rock, nterms = 2, max.terms = 5)
plot(rock.ppr, main="ppr(log(perm)~ ., nterms=2, max.terms=5)")
plot(update(rock.ppr, bass=5), main = "update(..., bass = 5)")
plot(update(rock.ppr, sm.method="gcv", gcvpen=2),
     main = "update(..., sm.method=\"gcv\", gcvpen=2)")
\end{ExampleCode}
\end{Examples}

