*** EXAMPLE 11:  Friedman's Test ***;

DATA IN;
  DO specimen = 1 TO 9;
  DO method = 'A' , 'B' , 'C';
     INPUT serum @@; OUTPUT;
  END; END;
CARDS;
 2 1 3   2 1 3   2 1 3
 2 1 3   2 1 3   3 1 2
 3 1 2   2 1 3   2 1 3
;
PROC FREQ DATA=IN;
     TABLE specimen*method*serum / NOPRINT CMH;
TITLE 'FRIEDMAN CHI-SQUARE TEST (INPUTS ARE RANKS)';
RUN;
***********************************************************;

DATA IN;
  DO subject = 1 TO 8;
  DO hours = '0' , '24' , '72';
     INPUT grams @@; OUTPUT;
  END; END;
CARDS;
3.5 5.9 13.9    3.7 8.1 12.6   1.6 8.1 8.1
2.5 8.6  6.8    2.8 8.1 14.3   2.0 5.9 4.2
5.9 9.5 14.5    2.5 7.9  7.9

PROC SORT DATA=IN; BY subject;
PROC RANK DATA=IN OUT=rankset; BY subject;
     VAR grams;
     RANKS gramrank;
PROC PRINT DATA=rankset;
PROC FREQ DATA=rankset;
     TABLE subject*hours*gramrank / NOPRINT CMH;
TITLE 'FRIEDMAN CHI-SQUARE STATISTIC (INPUTS ARE RAW DATA)';

RUN;