print out the results
;
proc print split='';
id gp1;
var gp2 num1 num2 diffrank se
crit prob sig;
label gp1 = 'Firstgroup'
gp2 = 'Secondgroup'
num1 = 'No. of
subjects (gp 1)'
num2 = 'No. of
subjects (gp 2)'
diffrank= 'Abs. diffin
meanranks'
se = 'SE of diff.'
prob =
'Adjustedalpha'
crit = 'criticalZ
value'
sig = 'sig.
atadjustedalpha';
title3 'Post hoc multiple
comparison tests between the
groups';
title5 'Significance is based on
an initial alpha of &alpha (two-
tailed test)';
title6 'but adjusted for the
number of pairwise comparisons
tests';
run;
%mend kw;
%kw;
Figure 11: Program for
Kruskal-Wallis test and
pairwise multiple
comparisons
*****;
Filename: KRUSK-W2.
JOB
;
**
**;
Appendix 378