options ls=75;

data pecanyields;
   length treat $7;
   length block $9;
   *infile "pecans-exam3.dat" firstobs=5;
   input treatment $ block $ yield_lbs;
   cards;
                      control    very_poor      625 
                      July       very_poor      599 
                      Aug        very_poor      953 
                      Sept       very_poor      834 
                      Oct        very_poor      643 
                      control    poor            79 
                      July       poor           771 
                      Aug        poor           792 
                      Sept       poor           433 
                      Oct        poor           347 
                      control    avg            378 
                      July       avg            307 
                      Aug        avg            785 
                      Sept       avg            104 
                      Oct        avg            650 
                      control    good           651 
                      July       good           290 
                      Aug        good           941 
                      Sept       good           876 
                      Oct        good           550 
                      control    very_good      825 
                      July       very_good      594 
                      Aug        very_good     1192 
                      Sept       very_good      642 
                      Oct        very_good      730 
;
run;
proc print;
   title "Exam 3, problem 2, ST512";
run;