edit.tree(object, node, var, splitl, splitr = NULL)
f.cu <- formula(Reliability ~ Price + Country + Mileage + Type)#edit node 3 to split on Price < 13000 z.cu <- tree(f.cu, cu.summary, na.action = na.tree.replace) z.edit <- edit.tree(z.cu, 3, "Price", 13000)
#compute alternative splits at node 3 tree.screens() b3 <- burl.tree(z.cu, 3)
#edit z.cu according to the 6th split on Country z.edit <- edit.tree(z.cu, b3$Country[6, ])