END
END
y OBJ
ARRY
X yv
«
X yv MTREG
NUM
b
«
b yv
X b *Calcular X⋅b
-Calcular e = y - X⋅b
ABS SQ DUPCalcular SSE, copiar resultado
y ΣLIST n /Calcular ⎯y
LIST SWAP CONVector de n valores de ⎯y
n 1
yv − ABS SQCalcular SST
/Calcular SSE/SST
NEG 1 + √Calcular r = [1–SSE/SST ]
"r"
TAGRotular resultado como "r"
SWAP
"SSE"
TAG
»
»
»
»
»
Almacene este programa bajo el nombre de POLYR, para acentuar el cálculo
del coeficiente de correlación r.
Uso del programa POLYR para los valores de p entre 2 y 6 produce la tabla
siguiente de valores del coeficiente de correlación, r, y de la suma de los
errores cuadrados, SSE:
1/2
Página 18-72