/* Lesson 08-1 */
 /*    File Name = les0801.sas   11/20/18   */

options linesize=72 pagesize=20;
options nocenter linesize=78 pagesize=30;

proc printto log   = 'Kougi/les0801_log.txt'
             print = 'Kougi/les0801_Results.txt' new;

ods listing gpath='Kougi/SAS_ODS0801';

data polymer;
  infile 'Kougi/glm811.csv'
    firstobs=2
    truncover lrecl=800
    missover
    dlm=',' 
    dsd;
  input B A R Y;

proc print data=polymer(obs=100);
run;

proc glm data=polymer;
  class A;
  model Y = A;
  means A / tukey;
run;