# NOT RUN {
result <- crtree("titanic", "survived", c("pclass","sex"), lev = "Yes")
plot(result)
result <- crtree("diamonds", "price", c("carat","clarity", "cut"))
plot(result, plots = "prune")
result <- crtree("dvd", "buy", c("coupon","purch", "last"), cp = .01)
plot(result, plots = "imp")
# }
Run the code above in your browser using DataLab