El método de mínimos cuadrados
Esquema en R.
Datos <- edit(data.frame()) #Abre el editor de datos
Regresion <- lm(D1 ~ D2, data= Datos) #Realiza la regresión de los datos columna D1 y D2
summary(Regresion) #Muestra los resultados de la regresión
cor(Datos) #Calcula la correlación de la base Datos
Plot(D1 ~ D2,data=Datos) #Grafica los datos D1, D2
abline(Datos) #Grafica la recta que mejor ajusta los datos