mod <- glm_imp(B1 ~ C1 + C2 + O1, data = wideDF, n.iter = 100,
family = binomial(), mess = FALSE)
summary(residuals(mod, type = 'response')[[1]])
summary(residuals(mod, type = 'working')[[1]])
Run the code above in your browser using DataLab