data(titanic_imputed, package = "DALEX")
# fit a model
model_glm <- glm(survived ~ ., family = binomial, data = titanic_imputed)
glm_audit <- audit(model_glm,
data = titanic_imputed,
y = titanic_imputed$survived)
# validate a model with auditor
eva_glm <- model_evaluation(glm_audit)
# plot results
plot_lift(eva_glm)
plot(eva_glm, type ="lift")
model_glm_2 <- glm(survived ~ .-age, family = binomial, data = titanic_imputed)
glm_audit_2 <- audit(model_glm_2,
data = titanic_imputed,
y = titanic_imputed$survived,
label = "glm2")
eva_glm_2 <- model_evaluation(glm_audit_2)
plot_lift(eva_glm, eva_glm_2)
plot(eva_glm, eva_glm_2, type = "lift")
Run the code above in your browser using DataLab