data(sTRACE)
sTRACE$id <- sample(1:100,nrow(sTRACE),replace=TRUE)
model <- glm(I(status==9)~sex+factor(diabetes)+age,data=sTRACE,family=binomial)
summaryGLM(model)
summaryGLM(model,id=sTRACE$id)
nd <- data.frame(sex=c(0,1),age=67,diabetes=1)
predictGLM(model,nd)
Run the code above in your browser using DataLab