Calcul coeficient de corelație

Coeficientul de corelație r este unul dintre indicatorii statistici deosebit de importanți. El arată dacă există sau nu o legătură între factori. Este dat de relația:

unde:

XM - media aritmetică a seriei de date formată din șirul X1, X2, X3,...., Xn:

YM - media aritmetică a seriei de date formată din șirul Y1, Y2, Y3,...., Yn:

Xi   - termenul i din seria re date X exogenă;

Yi   - termenul i din seria re date Y endogenă.

Subprogramul este:

             SUBROUTINE COREL(X,Y,N,COEF,IK)

             IF(N.LE.0) GO TO 30

             IK=0

             SX=0.

             SY=0.

             DO  10  I=1,N

             SX=SX+X(I)

             SY=SY+Y(I)

10         CONTINUE

             XM=SX/N

             YM=SY/N

             DIFXY=0.

             DIFX2=0.

             DIFY2=0.

             DO  20  I=1,N

             DIFXY=DIFX+(X(I)-XM)*(Y(I)-YM)

             DIFX2=DIFX2+(X(I)-XM)*(X(I)-XM)

             DIFY2=DIFX2+(Y(I)-YM)*(Y(I)-YM)

20         CONTINUE

             IK=1

             IF(DIFX2*DIFY2.LE.0)  GO TO 30

             IK=2

             COEF=DIFXY/SQRT(DIFX2*DIFY2)

30         CONTINUE

             RETURN

             END

Variabila IK=0 dacă numărul de elemente ale seriilor este incorect, IK=1 dacă sumele pătratelor de diferențe sunt incorecte, iar variabila IK=2 dacă s-a calculat corect coeficientul de corelație.

(30 decembrie 2017)