## ----results='hide',eval=FALSE------------------------------------------------
# library(catdata)
# data(foodstamp)
# attach(foodstamp)

## ----eval=FALSE---------------------------------------------------------------
# food1 <- glm(y ~ TEN + SUP + INC, family=binomial, data=foodstamp)
# summary(food1)

## ----eval=FALSE---------------------------------------------------------------
# plot(food1,2)