*** Teste da diferença entre dois coeficientes de correlação
*** dependentes
*** Valentim Rodrigues Alferes (Universidade de Coimbra, 2002)
*** valferes@fpce.uc.pt
**
** Esta sintaxe efectua o teste da diferença entre dois coeficientes
** de correlação dependentes (v.g., a correlação, numa mesma amostra,
** entre a variável V1 e a variável V3 e a correlação entre a variável
** V2 e a variável V3).  
** Por exemplo, Guilford e Frutcher (1978, p. 164) pretendem saber se
** um novo preditor (V2) tem uma melhor correlação com o critério (V3)
** do que um antigo preditor (V1). Introduzindo os dados dos autores,
** temos:

INPUT PROGRAM.
LOOP X=1 TO 1.
END CASE.
END LOOP.
END FILE.
END INPUT PROGRAM.
* Introduza a primeira correlação dependente (entre V1 e V3).
COMPUTE R13 = 0.45.
* Introduza a segunda correlação dependente (entre V2 e V3).
COMPUTE R23 = 0.55.
* Introduza correlação entre V1 e V2.
COMPUTE R12 = 0.60.
* Introduza o número de casos na amostra.
COMPUTE N = 200.
COMPUTE PRO=2*R12*R13*R23.
COMPUTE R13Q=R13*R13.
COMPUTE R23Q=R23*R23.
COMPUTE R12Q=R12*R12.
COMPUTE T=(R13-R23)*SQR(((N-3)*(1+R12))/(2*(1-R12Q-R13Q-R23Q+PRO))).
COMPUTE GL=N-3.
COMPUTE TABS=ABS(T).
COMPUTE P_BI=(1-CDF.T(TABS,GL))*2.
COMPUTE P_UNI=1-CDF.T(TABS,GL).
FORMATS R13(F8.2) R23(F8.2) T(F8.4) GL(F8.0) P_BI(F8.4) P_UNI(F8.4).
LIST R13 R23 T GL P_BI P_UNI.