# NOT RUN {
library(e1071)
data(houseVotes84)
house <- na.omit(houseVotes84)
model <- naiveBayes(Class ~ V1 + V2 + V3, data = house, threshold = 0.003)
model_pmml <- pmml(model, dataset = house, predicted_field = "Class")
# }
Run the code above in your browser using DataLab