anRpackage/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
}
saafdk/Rpackage documentation built on March 23, 2020, 12:46 a.m.