anRpackage/R/linmod.default.R

linmod.default <-
function(x, y, ...)
{
  x <- as.matrix(x)
  y <- as.numeric(y)
  est <- linmodEst(x, y)
  est$fitted.values <- as.vector(x %*% est$coefficients)
  est$residuals <- y - est$fitted.values
  est$call <- match.call()
  class(est) <- "linmod"
  est
}
saafdk/Rpackage documentation built on March 23, 2020, 12:46 a.m.