model <- glm(vs ~ wt + mpg, data = mtcars, family = "binomial")
result <- binned_residuals(model)
result
# look at the data frame
as.data.frame(result)
# plot
if (require("see") && getRversion() >= "3.6.0") {
plot(result)
}
Run the code above in your browser using DataLab