การกำหนดโมเดลขั้นสุดท้าย

# Select the optimal penalty for the Lasso
best_penalty <- ___(tune_output, metric = 'roc_auc', desc(penalty)) 
best_penalty

# Fit a final model using the optimal penalty
final_fit <- ___(workflow_lasso_tuned, best_penalty) %>%
  fit(data = train)

final_fit %>% tidy()

final_fit %>% augment(test) %>% class_evaluate(truth = Attrition, 
                                   estimate = .pred_class,
                                   .pred_Yes)