3  REM       CHISQS:    CHI-SQUARE STATISTICS FOR M*N CONTINGENCY TABLE   
4  REM
5  REM       36043    REV B   3/72    
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
9000  REM  ******* CHISQS ******** STATISTICS *********
9001  REM  *****  VERSION 2  ***** 11/17/71   *********
9002  REM  CHI-SQUARE STATISTICS
9003  READ M,N
9004  FOR I=1 TO M
9005  LET S=0
9006  FOR J=1 TO N
9007  READ O[I,J]
9008  LET S=S+O[I,J]
9009  NEXT J
9010  LET R[I]=S
9011  NEXT I
9012  LET S1=0
9013  FOR J=1 TO N
9014  LET S=0
9015  FOR I=1 TO M
9016  LET S=S+O[I,J]
9017  NEXT I
9018  LET C[J]=S
9019  LET S1=S1+S
9020  NEXT J
9021  LET C=0
9022  PRINT 
9023  FOR I=1 TO M
9024  FOR J=1 TO N
9025  LET E=R[I]*C[J]/S1
9026  LET O=O[I,J]
9027  IF (M-1)*(N-1)<2 THEN 9030
9028  LET C=C+(O-E)*(O-E)/E
9029  GOTO 9031
9030  LET C=C+(ABS(O-E)-.5)^2/E
9031  PRINT O,
9032  NEXT J
9033  PRINT 
9034  NEXT I
9035  PRINT "CHI-SQUARE EQUALS";C;"ON";(M-1)*(N-1);"DEGREES OF FREEDOM."
9036  STOP 
9999  END 
