data jdp;
input lifetime @@;
life2k=(lifetime>1999);
cards;
1993 1993 1984 1997 1995 1991 1984 1996 1989 2001
;
run;
proc sort data=jdp;
by descending life2k;
run;
proc print;run;
proc freq data=jdp order=data;
tables life2k/binomial(ac) alpha=.05;
run;