/* Lesson 16-1 */
 /*    File Name = glm01f.sas   10/30/97   */

options linesize=72 pagesize=20;

data kagou;
  infile 'glm.dat';
  do syokubai=1 to 3;
    do ondo=1 to 4;
      do repeat=1 to 2;
        input syuuryou @@;
        output;
      end;
    end;
  end;

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