myF <- wrapFormula(Fertility ~ . , data = swiss)
myF # Fertility ~ s(Agriculture) + s(....) + ...
if(require("mgcv")) {
m1 <- gam(myF, data = swiss)
summary(m1)
plot(m1, pages = 1) ; title(format(m1$call), line= 2.5)
}
Run the code above in your browser using DataLab