Residual Diagnostics

model <- glm(y ~ job + housing + contact + poutcome + duration + month +
             campaign + loan + marital + education + day + balance + previous, 
             data = bank_marketing, family = binomial(link = 'logit'))

blr_plot_diag_influence(model)

blr_plot_diag_leverage(model)

blr_plot_diag_fit(model)

blr_plot_dfbetas_panel(model)