[.tree(x, ..., drop = T) x[node] x[-node]
z.auto <- tree(Mileage ~ Weight, car.test.frame) z.auto[7]# Gives the following output: node), split, n, deviance, yval * denotes terminal node 7) root 22 61.320 20.41 14) Weight<3637.5 16 32.940 21.06 28) Weight<3322.5 10 16.500 20.50 56) Weight<3197.5 5 11.200 20.60 * 57) Weight>3197.5 5 5.200 20.40 * 29) Weight>3322.5 6 8.000 22.00 * 15) Weight>3637.5 6 3.333 18.67 *