hist.tree(tree, ..., nodes, screen.arg = <<see below>>,
figs = c(1, length(vnames)), plot = T)
z <- tree(Mileage~ Weight + Type, car.test.frame) tree.screens() plot(z) ; text(z) hist.tree(z, Weight, Mileage) # click on node to produce histogram