options nodate nonumber ps=200 ls=80 formdlim=' ';

/* Example 3: Bipoloar Children Treatment - Homogeneous Association */
   data bipoloar;
      input trtment $ results $ family $ count; 
      datalines; 
   imm    Good      intact     60
   imm    Bad       intact     20
   imm    Good      notintact  15
   imm    Bad       notintact   5
   wait   Good      intact     10
   wait   Bad       intact     10
   wait   Good      notintact  40
   wait   Bad       notintact  40
   ;
   proc freq order=data; 
      weight count; 
      tables trtment*results / nocol nopct measure; 
      tables family*trtment*results / nocol nopct measures;  
      tables family*results / nocol nopct measure; 
      tables trtment*family*results / nocol nopct measures;  
      tables family*trtment / nocol nopct measures;       
      tables results*family*trtment / nocol nopct measures;  
   run;