/* Lesson 15-1 */
 /*    File Name = les1501.sas   07/24/03   */

options linesize=72 pagesize=20;

data kagou;
  do syokubai=1 to 3;
    do ondo=1 to 4;
      do repeat=1 to 2;
        input syuuryou @@;
        output;
      end;
    end;
  end;
  cards;
  18 22   20 22   26 24  30 32
  10 13   19 15   22 21  28 26
  21 19   21 26   26 21  29 26
;

proc print data=kagou;
run;
proc glm data=kagou;
  class syokubai;
  model syuuryou=syokubai;
  means syokubai;
run;