# NOT RUN {
print("CART - Example 10.7")
summary(monica)
pause()
require(rpart)
monica.rpart <- rpart(outcome ~ ., data = monica, cp = 0.0025)
plotcp(monica.rpart)
printcp(monica.rpart)
pause()
monicab.rpart <- prune(monica.rpart, cp=0.006)
print(monicab.rpart)
# }
Run the code above in your browser using DataLab