if (rlang::is_installed(c("broom", "modeldata"))) {
library(parsnip)
library(magrittr)
library(modeldata)
data("attrition")
model <- logistic_reg() %>%
set_engine("glm")
wf <- workflow() %>%
add_model(model) %>%
add_formula(
Attrition ~ BusinessTravel + YearsSinceLastPromotion + OverTime
)
# Workflow must be trained to call `glance()`
try(glance(wf))
wf_fit <- fit(wf, attrition)
glance(wf_fit)
}
Run the code above in your browser using DataLab