\Header{rsq.rpart}{Plots the Approximate R-Square for the Different Splits}
\keyword{tree}{rsq.rpart}
\begin{Description}\relax
Produces 2 plots.  The first plots the r-square (apparent and
apparent - from cross-validation) versus the number of splits.  
The second plots the Relative Error(cross-validation) +/- 1-SE from
cross-validation versus the number of splits.\end{Description}
\begin{Usage}
\begin{verbatim}
rsq.rpart(x)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] fitted model object of class \code{rpart}.  This is assumed to be the result
of some function that produces an object with the same named
components as that returned by the \code{rpart} function.

\end{ldescription}
\end{Arguments}
\begin{Section}{Side Effects}
Two plots are produced.\end{Section}
\begin{Note}\relax
The labels are only appropriate for the \code{"anova"} method.\end{Note}
\begin{Examples}
\begin{ExampleCode}
data(car.test.frame)
z.auto <- rpart(Mileage ~ Weight, car.test.frame)
rsq.rpart(z.auto)
\end{ExampleCode}
\end{Examples}

