library (mgcv)
attach (cars)
m <- gam (dist ~ s(speed))
plot (m)
m <- gam (dist ~ s(speed), family=poisson)

m <- gam (pm25 ~ s(temp,k=10) + s(wind))
m <- gam (pm25 ~ temp + s(wind))