# NOT RUN {
HR_glm_model <- glm(status == "fired" ~., data = HR, family = "binomial")
explainer_glm <- explain(HR_glm_model, data = HR)
expl_glm <- feature_response(explainer_glm, "hours", "pdp")
head(expl_glm)
plot(expl_glm)
# }
# NOT RUN {
library("randomForest")
HR_rf_model <- randomForest(as.factor(status == "fired" )~., data = HR, ntree = 100)
explainer_rf <- explain(HR_rf_model, data = HR)
expl_rf <- feature_response(explainer_rf, feature = "hours",
type = "pdp")
head(expl_rf)
plot(expl_rf)
plot(expl_rf, expl_glm)
plot(expl_rf, expl_glm, use_facets = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab