if (requireNamespace("adabag", quietly = TRUE)) {
data(iris)
model <- cla_boosting("Species", mfinal = 10)
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