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

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

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

## ----eval=FALSE---------------------------------------------------------------
#  gammaids<-gamm(cd4 ~ s(time) + drugs + partners + s(cesd) + s(age),
#                 random=list(person=~1),  family=poisson(link=log), data=aids)

## ----eval=FALSE---------------------------------------------------------------
#  summary(gammaids$gam)

## ----fig.width=12, fig.height=9,eval=FALSE------------------------------------
#  plot(gammaids$gam,ylab=" ",cex.lab=1.8,cex.axis=1.5,select=1)

## ----fig.width=12, fig.height=9,eval=FALSE------------------------------------
#  plot(gammaids$gam,ylab=" ",cex.lab=1.8,cex.axis=1.5,select=2)

## ----fig.width=12, fig.height=9,eval=FALSE------------------------------------
#  plot(gammaids$gam,ylab=" ",cex.lab=1.8,cex.axis=1.5,select=3)

## ----echo=FALSE,results='hide',eval=FALSE-------------------------------------
#  detach(package:mgcv)