R/train_linear.R

train_linear <-
function(X,y,pars = list())
{
    mod <- lm(y ~ X)
    result <- list()
    result$Yfit = as.matrix(mod$fitted.values)
    result$residuals = as.matrix(mod$residuals)
    result$model = mod
    #for coefficients see list(mod$coef)
    return(result)
}
SharonLutz/DisentangleSNP documentation built on May 28, 2019, 3:15 p.m.