

   DDiissppllaayyss CCPP ttaabbllee ffoorr FFiitttteedd RRppaarrtt OObbjjeecctt

        printcp(x, digits=.Options$digits - 2)

   AArrgguummeennttss::

          x: fitted model object of class `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 `rpart' function.

     digits: the number of digits of numbers to print.

   DDeettaaiillss::

        Prints a table of optimal prunings based on a complex-
        ity parameter.

   SSeeee AAllssoo::

        `summary.rpart', `rpart.object'

   EExxaammpplleess::

        > z.auto <- rpart(Mileage ~ Weight, car.test.frame)
        > printcp(z.auto)

        Regression tree:
        rpart(formula = Mileage ~ Weight, data = car.test.frame)

        Variables actually used in tree construction:
        [1] Weight

        Root node error: 1354.6/60 = 22.576

                CP nsplit rel error  xerror     xstd
        1 0.595349      0   1.00000 1.03436 0.178526
        2 0.134528      1   0.40465 0.60508 0.105217
        3 0.012828      2   0.27012 0.45153 0.083330
        4 0.010000      3   0.25729 0.44826 0.076998

