OPTIONS NODATE NONUMBER LS=64;

**********************************************;
*** ANOTHER WAY TO READ IN UNBALANCED DATA ***;
**********************************************;

DATA r9 (DROP=n KEEP=type response); 

     INPUT type $ n @@;

     DO rep = 1 TO n;
        INPUT response @@; OUTPUT;
     END;

LINES;
10ft 5  2.3 4.5 5.1 4.0 3.3
20ft 4  3.1 5.5 5.1 3.9 
30ft 6  4.4 4.0 2.8 3.8 3.5 3.9

PROC PRINT DATA = r9;
TITLE  'Reading in Unbalance Data';
TITLE2 'for a One-Way Anova';

RUN;