# NOT RUN {
data(WINE)
TREE <- rpart(Quality~.,data=WINE,control=rpart.control(cp=0.01,xval=10,minbucket=5))
summarize_tree(TREE)
RF <- randomForest(Quality~.,data=WINE,ntree=50)
summarize_tree(RF)
data(NFL)
TREE <- rpart(X4.Wins~.,data=NFL,control=rpart.control(cp=0.002,xval=10,minbucket=5))
summarize_tree(TREE)
RF <- randomForest(X4.Wins~.,data=NFL,ntree=50)
summarize_tree(RF)
# }
Run the code above in your browser using DataLab