home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG080.ARK / SPEAR.STB < prev    next >
Text File  |  1984-04-29  |  1KB  |  44 lines
  1.  
  2.    10   @"SPEARMAN CORRELATION COEFFICIENT"
  3.    20   @"COPYRIGHT 1981"
  4.    30   @"DAVID E. TRACHTENBARG"
  5.    40   @
  6.    50   Integer I,J,K,L,M,N,O
  7.    60   Gosub Screen'erase
  8.    70   Integer Ranks(21,4)
  9.    80   I=22
  10.    90     For J=0 To 4
  11.   100       For K=0 To I-1
  12.   110       @"Enter the rank of ";K+1;",";J;
  13.   120       Input"?  ",Command$
  14.   130       If Command$="" Then Goto 120
  15.   140       Ranks(K,J)=Val(Command$)
  16.   150       Next K
  17.   160     Next J
  18.   170   Gosub Screen'erase
  19.   180   Input"enter 0=average, 1=faculty, 2=residents, 3=staff, 4=weighted average. ",Command$
  20.   190   If Command$="" Then Goto 180
  21.   200   N=Val(Command$)
  22.   210   Input"Enter the second list to be compared. ",Command$
  23.   220   If Command$="" Then Goto 210
  24.   230   O=Val(Command$)
  25.   240   @"         RANK1  RANK2   DIFF   D2"
  26.   250   Total=0
  27.   260     For K=0 To I-1
  28.   270     L=Ranks(K,N)-Ranks(K,O)
  29.   280     M=L*L
  30.   290     @ Using"###. ",K+1;
  31.   300     @ Using"    ###",Ranks(K,N);
  32.   310     @ Using"    ###",Ranks(K,O);
  33.   320     @ Using"    ###",Abs(L);
  34.   330     @ Using"    ###",M
  35.   340     Total=Total+M
  36.   350     Next K
  37.   360   R=1.0-(Total*6.0)/(I*(I*I-1))
  38.   370   @ Using"SPEARMAN RANK CORRELATION = #.##",R;
  39.   380   Input"    Press RETURN to go on. ",Command$;
  40.   390   Goto 170
  41.   400 *Screen'erase
  42.   410   Out 1,126 : Out 1,28 : Return
  43.