Sample R code experimenting with GAM's