Me gustaría pasar el lado derecho de una fórmula a una función R que luego "agrega" el lado izquierdo de la fórmula y llama al gam()
. Me gustaría lograr esto sin construcciones feas como .formula() etc.¿Cómo pasar el lado derecho de una fórmula a otra fórmula?
Me quedé atrapado en el siguiente ejemplo mínimo, ¿sabes qué salió mal?
require(mgcv)
set.seed(0) ## set.seed(1)
gamEx1 <- gamSim(1, n=400, dist="normal", scale=2) ## simulate some data
str(gamEx1) ## display structure
## calling gam() and passing the right-hand side of a formula
gamFitter <- function(formula.RHS, data, ...){
z <- 2*data$y + data$f0 # some given values
gam(z ~ formula.RHS, data=data, ...) # call gam()
}
## call the function with the right-hand side of a formula
gamFitter(formula.RHS=~s(x0)+s(x1)+s(x2)+s(x3), data=gamEx1)
Error in model.frame.default(formula = z ~ formula.RHS, data = data,
drop.unused.levels = TRUE) :
invalid type (language) for variable 'formula.RHS'
Gracias, Derek, no sabía que esta función existe. –
@MariusHofert Me parece que esta respuesta es más elegante que la actualmente aceptada. ¿Podrías reconsiderar el aceptar? – Andrie