options nodate ps=54 ls=76;

data ex0604;
* infile '../../../data/biostat/ex0604.dat';
infile 'C:\biostat\data\theoph.dat';
input subj formu tmax;
length fformu $8.;
if formu=1 then fformu='cap_f';
if formu=2 then fformu='cap_nf';
if formu=3 then fformu='entct_f';
run;

/* The statistic for Friedman's Test is Statistic 2: 
"Row Mean Scores Differ". In the tables statement, use the ordering:
block*treatment*response     */

proc freq;
tables subject*fformu*tmax / cmh2 scores=rank noprint;
run;
quit;

quit;