#grow an oblique tree
data(Pima.tr, package="MASS")
ob.tree <- oblique.tree( type~.,
Pima.tr,
oblique.splits="only",
variable.selection="model.selection.aic")
#look at the tree
plot(ob.tree);text(ob.tree)
#and its trim sequence
plot(trim.oblique.tree(ob.tree))
Run the code above in your browser using DataLab