*** Teste da diferença entre um coeficiente de correlação e um dado
*** valor da correlação na população
*** Valentim Rodrigues Alferes (Universidade de Coimbra, 2002)
*** valferes@fpce.uc.pt
**
** Esta sintaxe efectua o teste da diferença entre um coeficiente de 
** correlação e um dado valor da correlação na população [o exemplo é
** o de de Cohen e Cohen (1983, p. 54)].

INPUT PROGRAM.
LOOP X=1 TO 1.
END CASE.
END LOOP.
END FILE.
END INPUT PROGRAM.

* Introduza o coeficiente de correlação.
COMPUTE R = 0.47.
* Introduza o N (número de pares de observações).
COMPUTE N = 103.
* Introduza a correlação na população.
COMPUTE R_POP = 0.63.

COMPUTE EPZ=1/SQR(N-3).
COMPUTE Z1=(LN(1+R)-LN(1-R))/2.
COMPUTE Z2=(LN(1+R_POP)-LN(1-R_POP))/2.
COMPUTE Z=(Z1-Z2)/EPZ.
COMPUTE ZABS=ABS(Z).
COMPUTE P_BI=(1-CDFNORM(ZABS))*2.
COMPUTE P_UNI=1-CDFNORM(ZABS).
EXECUTE.
FORMATS N(F8.0) R(F8.2) R_POP(F8.2) Z(F8.4) P_BI(F8.4) P_UNI(F8.4).
LIST VARIABLES=N R R_POP Z P_BI P_UNI.