options nodate pagesize=54 linesize=80;

/* Read in the input file   */

data ex0602;
infile '../../../data/biostat/ex0602.dat';
* infile 'C:\biostat\data\ex0602.dat';
input trt wtgain tb thal;
length treatment $8. ;
if trt=1 then treatment='tbth';
if trt=2 then treatment='notbth';
if trt=3 then treatment='tbnoth';
if trt=4 then treatment='notbnoth';
run;

/* Run the Kruskal-Wallis test to compare treatment means
  you use the Wilcoxon option for the npar1way (nonparametric 1-way) procedure */

proc npar1way wilcoxon;
class treatment;
var wtgain;
run;

quit;