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