*** Teste para uma correlação igual a zero na população (rho = 0)
*** [Nível de significação de um coeficiente de correlação]
*** Valentim Rodrigues Alferes (Universidade de Coimbra, 2002)
*** valferes@fpce.uc.pt
**
** Esta sintaxe efectua o teste de uma correlação igual a zero na 
** população. A probabilidade associada ao t de Student, geralmente
** designada por nível de significação de um coeficiente de correlação,
** corresponde ao erro de tipo I: rejeição da hipótese nula (correla-
** ção igual a zero na população) quando ela é verdadeira. O exemplo
** é de Guilford e Fruchter (1978, pp. 141-143).

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.30.

* Introduza o N (número de pares de observações).
COMPUTE N = 52.
COMPUTE T=(R*SQR(N-2))/SQR(1-R*R).
COMPUTE GL=N-2.
COMPUTE TABS=ABS(T).
COMPUTE P_BI=(1-CDF.T(TABS,GL))*2.
COMPUTE P_UNI=1-CDF.T(TABS,GL).
FORMATS R (F8.2) T(F8.4) N(F8.0) GL(F8.0) P_BI(F8.4) P_UNI(F8.4).
LIST R N T GL P_BI P_UNI.