## ----echo=FALSE,eval=FALSE----------------------------------------------------
# options(width=80)

## ----eval=FALSE---------------------------------------------------------------
# library(catdata)
# data(children)

## ----eval=FALSE---------------------------------------------------------------
# library(mgcv)

## ----eval=FALSE---------------------------------------------------------------
# gamchild <- gam(child ~ s(age) + s(dur) + as.factor(nation) + as.factor(god) +
#   as.factor(univ), data=children, family=poisson(link=log))
# 
# summary(gamchild)

## ----fig.width=9,eval=FALSE---------------------------------------------------
# par(cex=1.5)
# plot(gamchild, select=1, ylab="", xlab="Age")

## ----fig.width=9,eval=FALSE---------------------------------------------------
# par(cex=1.5)
# plot(gamchild, select=2, ylab="", xlab="Duration")