%include catdata(vision);
title 'Vision data: Women';

proc print data=women;
   run;
title 'Vision data: Women';
%sieveplot(data=women, var=right left, filltype=obsp);

*-- Try the same for men;
title 'Vision data: Men';
%sieveplot(data=men, var=right left, filltype=obsp);