wrapFormula {sfsmisc} | R Documentation |
The main motivation for this function has been the easy construction
of a “full GAM formula” from something as simple as
Y ~ .
.
The potential use is slightly more general.
wrapFormula(f, data, wrapString = "s(*)")
f |
the initial |
data |
|
wrapString |
|
a formula
very similar to f
; just replacing each
additive term by its wrapped version.
Martin Maechler, May 2007.
formula
;
gam
from package mgcv (or also from
package gam).
myF <- wrapFormula(Fertility ~ . , data = swiss) myF # Fertility ~ s(Agriculture) + s(....) + ... if(require("mgcv")) { m1 <- gam(myF, data = swiss) print( summary(m1) ) plot(m1, pages = 1) ; title(format(m1$call), line= 2.5) } ## other wrappers: wrapFormula(Fertility ~ . , data = swiss, wrap = "lo(*)") wrapFormula(Fertility ~ . , data = swiss, wrap = "poly(*, 4)")