* ch.nonpar.sas, illustrate sign test and 
  Wilcoxon Signed Rank Test using partial 
  data of problem 21.5, page 912;
options ls=78 nodate; 
; 
data mtd;
 input block y1 y2;
 diff=y1-y2;
 lines; 
  1 73 81 
  2 76 78 
  3 75 76 
  4 74 77 
  5 76 71 
  6 73 75 
  7 68 72 
  8 64 74 
  9 65 73 
 10 62 69
;
proc print;
 title 'Problem 21.5, data for methods 1 and 2';
;
proc univariate;
 var diff;

 
                    Problem 21.5, data for methods 1 and 2                   1

                       Obs    block    y1    y2    diff

                         1       1     73    81      -8
                         2       2     76    78      -2
                         3       3     75    76      -1
                         4       4     74    77      -3
                         5       5     76    71       5
                         6       6     73    75      -2
                         7       7     68    72      -4
                         8       8     64    74     -10
                         9       9     65    73      -8
                        10      10     62    69      -7


                    Problem 21.5, data for methods 1 and 2                   2

                           The UNIVARIATE Procedure
                               Variable:  diff

                                   Moments

       N                          10    Sum Weights                 10
       Mean                       -4    Sum Observations           -40
       Std Deviation      4.42216639    Variance            19.5555556
       Skewness           0.64563686    Kurtosis            0.54834619
       Uncorrected SS            336    Corrected SS               176
       Coeff Variation    -110.55416    Std Error Mean       1.3984118


                          Basic Statistical Measures
 
                Location                    Variability

            Mean     -4.00000     Std Deviation            4.42217
            Median   -3.50000     Variance                19.55556
            Mode     -8.00000     Range                   15.00000
                                  Interquartile Range      6.00000

    NOTE: The mode displayed is the smallest of 2 modes with a count of 2.


                          Tests for Location: Mu0=0
 
               Test           -Statistic-    -----p Value------

               Student's t    t  -2.86039    Pr > |t|    0.0188
               Sign           M        -4    Pr >= |M|   0.0215
               Signed Rank    S     -21.5    Pr >= |S|   0.0254

etc.