options pagesize=75 linesize=75;
title 'Fertilizer Test Quality 1999 Date and pctfrt 2000';

proc format;
   *value perform 1="1" 2="2" 3="3" 4="4";
   value perform 1="very poor" 2="poor" 3="good" 4="very good";
   value fert 1="control" 2="July 1" 3="Aug 1" 4="Sept 1" 5="Oct 1";
run;

data pecans;
   format block perform.; 
   format treat fert.; 
   input i j lbsyld;
   block=i;
   treat=j;
cards;
1    1     823.4
1    2     408.0
1    3    1151.0
1    4     457.0
1    5    1303.5
2    1     394.7
2    2     886.1
2    3    1306.0
2    4     903.7
2    5     941.6
3    1     560.7
3    2     857.0
3    3    1737.5
3    4    1040.8
3    5     908.7
4    1     843.3
4    2    1334.2
4    3    1741.8
4    4    1177.0
4    5    1561.8
;
run;
proc print;run;