# NOT RUN {
result <- nb("titanic", "survived", c("pclass","sex","age"))
predict(result, pred_data = "titanic")
predict(result, pred_data = "titanic", pred_names = c("Yes","No"))
predict(result, pred_cmd = "pclass = levels(pclass)")
result <- nb("titanic", "pclass", c("survived","sex","age"))
predict(result, pred_data = "titanic")
predict(result, pred_data = "titanic", pred_names = c("1st","2nd","3rd"))
predict(result, pred_data = "titanic", pred_names = "")
predict(result, pred_data = "titanic", pred_names = NA)
# }
Run the code above in your browser using DataLab