# NOT RUN {
result <- crtree("titanic", "survived", c("pclass","sex"), lev = "Yes")
predict(result, pred_cmd = "pclass = levels(pclass)")
result <- crtree("titanic", "survived", "pclass", lev = "Yes")
predict(result, pred_data = "titanic") %>% head
# }
Run the code above in your browser using DataLab