getRpartModel function

Conversion of a CoreModel tree into a rpart.object