add another quick example from rpart docs