R/linmod.formula.R

linmod.formula <-
function(formula, data=list(), ...){
mf <- model.frame(formula=formula, data=data)
x <- model.matrix(attr(mf, "terms"), data=mf)
y <- model.response(mf)
est <- linmod.default(x, y, ...)
est$call <- match.call()
est$formula <- formula
est
}
rcastaneda2/sfunction3 documentation built on May 27, 2019, 3:02 a.m.