/* 
Computes a confidence interval for the median, 
based on the Wilcoxon signed rank test
*/
data eg11_3;
 input y @@;
cards;
17 22 3 20 -4 14
;
run;
/* 
The desired interval is found in the "50% Median" row
of the output table under "95% Confidence Limits Distribution Free"
*/
proc univariate data=eg11_3 ciquantdf(alpha=.05);
 var y;
 ods select Quantiles;
run;