# NOT RUN {
library(wsbackfit)
data(infect)
# Generalized varying coefficient model with binary response
m3 <- sback(formula = inf ~ sb(gluc, h = 10) + sb(gluc, by = linf, h = 10),
data = infect, family = "binomial", kbin = 15)
summary(m3)
# Deviance
summary(residuals(m3))
# Pearson
summary(residuals(m3, type = "pearson"))
# }
Run the code above in your browser using DataLab