C-FOCAL,1969

01.90 C    FOCAL ROUTINE FOR SPEARMAN R

02.10 S SD=0;S CN=0
02.20 A !!"NO. OF PAIRS",N
02.21 T !!"RET. TO 3.1 AFT C/C"
02.30 A !!"R1 ",X," R2 ",Y
02.40 S D=X-Y;S D=D*D
02.50 S SD=SD+D;S CN=CN+1;G 2.3

03.10 I (CN-N)4.1,3.2,4.1
03.20 T !!!"SPEARMAN R"
03.30 T 1-((6*SD)/(N*((N*N)-1)))
03.40 G 2.1

04.10 T !!!!"INPUT ERR";G 2.1
*
?