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

## ----eval=FALSE---------------------------------------------------------------
#  library(mgcv)
#  library(catdata)
#  data(dust)

## ----eval=FALSE---------------------------------------------------------------
#  gamdust1 <- gam(bronch ~ s(dust,years), family=binomial,
#                  data=dust[(dust$dust<10) & (dust$smoke==1),])
#  
#  plot(gamdust1, pers=TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  gamdust2<- gam(bronch ~ s(dust) + s(years), family=binomial,
#                 data=dust[(dust$dust<10) & (dust$smoke==1),])

## ----fig.width=8,eval=FALSE---------------------------------------------------
#  plot(gamdust2, select=1)

## ----fig.width=8,eval=FALSE---------------------------------------------------
#  plot(gamdust2, select=2)