library(robcbi)
data(Finney)
Vol <- Finney$Vol; Rate <- Finney$Rate; Resp <- Finney$Resp
lVol <-log(Vol); lRate <- log(Rate)
z.glm <- glm(Resp~lVol+lRate,family=binomial)
z.cub <- glm(Resp~lVol+lRate,family=binomial,method="cubinf", ufact=3.2)
comp <- fits.compare(z.glm,z.cub)
comp
if (FALSE) {
plot(comp)
}
Run the code above in your browser using DataLab