R/lm_beta.R

In ssslix/slx: my functions

Defines functions lm_beta

Documented in lm_beta

lm_beta<-function(X,Y){
    prac=X
    Y_pra=Y
    beta=solve(t(prac)%*%prac,t(prac)%*%Y_pra)
  return(beta)
}