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