if (requireNamespace("glmnet", quietly = TRUE)) {
data(iris)
iris_bin <- iris
iris_bin$IsVersicolor <- factor(ifelse(
iris_bin$Species == "versicolor",
"versicolor",
"not_versicolor"
))
model <- cla_glmnet("IsVersicolor")
model <- fit(model, iris_bin)
pred <- predict(model, iris_bin)
eval <- evaluate(model, adjust_class_label(iris_bin$IsVersicolor), pred)
eval$metrics
}
Run the code above in your browser using DataLab