R/simple.lm.R

simple.lm <-
function(Y,X){
	re=lm(Y~X)
	list(alpha=as.numeric( coef(re)[1]),beta=as.numeric(coef(re)[-1]),residual=as.numeric(re$residuals))
}
yfyang86/paftoga documentation built on May 4, 2019, 2:33 p.m.