options ls=80;




/* Data from page 443 Freund 8th edition*/
data c;
input method $ x @@;
cards;
l1 0.37 l1 0.70 l1 0.75 l1 0.30 l1 0.45 l1 0.16 l1 0.62 l1 0.73 l1 0.33
l2 0.86 l2 0.55 l2 0.80 l2 0.42 l2 0.97 l2 0.84 l2 0.24 l2 0.51 l2 0.92 
l2 0.69
;
title ' Problem in page 443 Freund 8th edition';  
proc print data=c;
proc npar1way data=c wilcoxon;
 class method;




/* Example 13.5 Freund 8th edition*/
data c1;
input diet $ x @@;
cards;
d1 16.3 d1 10.1 d1 10.7 d1 13.5 d1 14.9 d1 11.8 d1 14.3 d1 10.2
d1 12.0 d1 14.7 d1 26.3 d1 15.1 d1 14.5 d1 18.4 d1 13.2 d1 14.0
d2 21.3 d2 23.8 d2 15.4 d2 19.6 d2 12.0 d2 13.9 d2 18.8 d2 19.2
d2 15.3 d2 20.1 d2 14.8 d2 18.9 d2 20.7 d2 21.1 d2 15.8 d2 16.2
;
title ' Example 13.5 from page 446 Freund 8th edition'; 
proc print data=c1;
proc npar1way data=c1 wilcoxon;
 class diet;




/* Example 13.6 Freund 8th edition */
data f;
input method $ x @@;
cards;
1 94 1 87 1 91 1 74 1 87 1 97
2 85 2 82 2 79 2 84 2 61 2 72 2 80
3 89 3 67 3 72 3 76 3 69
;

title 'Example 13.6 Freund 8th edition';   
proc print data=f;
proc npar1way data=f wilcoxon;
 class method;