Instruction Manual

Página 18-65
n 1 +
p 1 +
FOR j
x j ^
OBJ ARRY
j COL+
NEXT
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 DUP Calcular SSE, copiar resultado
y ΣLIST n / Calcular y
n 1 LIST SWAP CON Vector de n valores de y
yv − ABS SQ Calcular SST
/ Calcular SSE/SST
NEG 1 + √ Calcular r = [1–SSE/SST ]
1/2
“r” TAG Rotular 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.