R/linmod.default.R

linmod.default <-
function(x, y,...){

x<-as.matrix(x)
y<-as.matrix(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
}
rcastaneda2/sfunction3 documentation built on May 27, 2019, 3:02 a.m.