eval_model(prediction, actual, dimnames = c("Prediction", "Actual"),
zero.print = "0")
data <- iris
model <- OneR(data)
summary(model)
prediction <- predict(model, data)
eval_model(prediction, data)
Run the code above in your browser using DataLab