/* Data:  Time (in minutes) that a drug takes to relieve an irritated eye */
/* (irritation measured by color/redness) */

* Source:  Rao (1998), p. 178.;



DATA timerelief; 
INPUT time;
/* We want to test whether the true median time-to-relief equals 5:  */
diff = time - 5;
cards;
0.4
4.6
2.2
1.2
4.5
5.7
8.0
2.1
4.8
3.0
8.8
11.4
1.3
1.4
2.1
1.3
12.5
2.4
4.6
2.8
;
run;

PROC univariate PLOT DATA=timerelief;
VAR diff;
run;

/* Look under the "Tests for Location" section.        */
/* The P-value of the Sign Test is given as 0.0414.    */
/* The Sign Test concludes (at significance level .05) */
/* that the true median time-to-relief is not 5.       */