data(iris)
iris_bin <- iris
iris_bin$IsVersicolor <- factor(ifelse(
iris_bin$Species == "versicolor",
"versicolor",
"not_versicolor"
))
model <- cla_glm("IsVersicolor", positive = "versicolor")
model <- suppressWarnings(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