#######################################
# SREG Statistica - regressione.

# Vettore dei residui d.
Sreg.residui = function (x,y)
{u=Sreg.retta(x,y)
y-(u[1]*x+u[2])}

# Coefficienti lambda e tau della
# retta di regressione.
Sreg.retta = function (x,y)
{lambda=cor(x,y)*sd(y)/sd(x)
tau=mean(y)-lambda*mean(x)
c(lambda,tau)}