if (requireNamespace("rpart", quietly = TRUE)) {
data(iris)
model <- cla_rpart("Species")
model <- fit(model, iris)
pred <- predict(model, iris)
eval <- evaluate(model, adjust_class_label(iris$Species), pred)
eval$metrics
}
Run the code above in your browser using DataLab