## start with
example(gl1ce)
predict(gl1c.E, new = esoph[1:7,])# type 'link'
predict(gl1c.E, new = esoph[1:7,], type = "response")
## identities / consistency checks :
stopifnot(predict(gl1c.E, type = "response") == fitted(gl1c.E),
all.equal(predict(gl1c.E)[1:7],
predict(gl1c.E, new = esoph[1:7,])),
all.equal(fitted(gl1c.E)[1:7],
predict(gl1c.E, new = esoph[1:7,], type = "response"))
)
Run the code above in your browser using DataLab