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