# NOT RUN {
library(robcbi)
data(Finney)
Vol <- Finney$Vol; Rate <- Finney$Rate; Resp <- Finney$Resp
lVol <-log(Vol); lRate <- log(Rate)
z.cub <- glm(Resp~lVol+lRate,family=binomial,method="cubinf", ufact=3.2)
x <- residuals(z.cub, type="deviance")
# }
# NOT RUN {
qqnorm(x, ylab = "Deviance Residuals")
QQline(x, lty = 2)
# }
Run the code above in your browser using DataLab