data("ContraceptiveChoice")
summary(ContraceptiveChoice)
## Not run:
# set.seed(1090)
# contt <- evtree(contraceptive_method_used ~ . , data = ContraceptiveChoice)
# contt
# table(predict(contt), ContraceptiveChoice$contraceptive_method_used)
# plot(contt)
# ## End(Not run)
Run the code above in your browser using DataLab