@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
C-FOCAL, U01

01.10 T !!"RUNS TEST";E
01.20 A !!"ARE DATA ALREADY DICHOTOMIZED",CT;I (CT-0NO) 1.3,1.22,1.3
01.22 A !"WHAT VALUE SHOULD BE USED AS THE CUTTING POINT",CT,!;G 1.35
01.30 T !!"USE '0' OR '1' (ZERO OR ONE) TO INDICATE EITHER CATEGORY"
01.31 S CT=0
01.35 T !!"TYPE -9999 TO SIGNAL END OF DATA"!!,"BEGIN";S EF=1
01.40 S T=2;A MU;I (MU+9999) 1.44,1.43,1.44
01.43 S EF=0;G 3.3
01.44 S R=R+1;I (MU-CT) 1.5,1.5,1.6
01.50 S T=1
01.60 S NT=NT+1;I (NT-1) 2.2,1.8,2.2
01.80 S I2=T;S R=0;G 1.4

02.20 S I1=I2;S I2=T;I (I1-I2) 2.5,1.4,2.5
02.50 S T(I1)=T(I1)+1;S S(I1)=S(I1)+R^2;S N(I1)=N(I1)+R
02.60 S R=0; I (EF) 1.4,3.4,1.4

03.30 S R=R+1;S I1=I2;G 2.5
03.40 S TR=T(1)+T(2)

04.10 S MU=((2*N(1)*N(2))/NT)+1
04.20 S SI=FSQT((2*N(1)*N(2)*(2*N(1)*N(2)-NT))/(NT^2)*(NT-1))
04.40 T !!%3,"NO. LO"N(1),"  LO RUNS"T(1),%4.01"  MEAN LENGTH"
04.46 T N(1)/T(1),"  ST. DEV."FSQT((S(1)/T(1)-((N(1)/T(1))^2)))
04.50 T !%3,"NO. HI"N(2),"  HI RUNS"T(2),%4.01"  MEAN LENGTH"
04.56 T N(2)/T(2),"  ST. DEV."FSQT(S(2)/T(2)-(N(2)/T(2))^2)
04.80 T %3 !!"TOTAL OBSERVATIONS"NT,"  TOTAL RUNS"TR
04.93 T %6.03 !!"Z SCORE FOR NORMAL APPROXIMATION",(TR-MU)/SI
04.94 T !"EXPECTED NO. OF RUNS",MU,!
04.99 Q
*@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@