if eof then output;
data b; set b;
se=sqrt((n(n+1))((((2n)
+1))/24));
expect = (n(n+l))/4;
z=abs((t−expect)/se);
p=round (1−(probnorm(z)),
.0001)*2;
proc print data=b label;
id n;
var t expect se z p;
label p ='p-value (2-tailed
test)'
expect ='expected value'
n =‘No. of subjects'
t ='observed value
(T)'
z ='z score';
title3 'Summary Statistics';
run;
Figure 10: Program for
Wilcoxon Signed Ranks
test
*****;
Filename: KRUSK-
W1.JOB
;
**
;
Purpose: Kruskal-Wallis
test
;
Using a dataset
containing each response for
each ;
subject.
;
Also does
multiple comparison tests
between ;
the
groups.
;
**;
Appendix 374