Fix warning in binned_residuals()

[IndrajeetPatil]

library(performance)
library(see)
model <- glm(vs ~ wt + mpg, data = mtcars, family = "binomial")
result <- binned_residuals(model)
plot(result)
#> Warning: Computation failed in `stat_smooth()`
#> Caused by error in `smooth.construct.tp.smooth.spec()`:
#> ! A term has fewer unique covariate combinations than specified maximum degrees of freedom

^{Created on 2023-03-25 with reprex v2.0.2}

[IndrajeetPatil]

Seems to have disappeared:

library(performance)
library(see)
model <- glm(vs ~ wt + mpg, data = mtcars, family = "binomial")
result <- binned_residuals(model)
plot(result)
#> Warning: Removed 3 rows containing missing values (`geom_point()`).

^{Created on 2023-09-28 with reprex v2.0.2}

[strengejacke]

Yeah, should be "fixed" in this commit: 52cc4e9