OPTIONS LINESIZE=80;
TITLE1 'Randomized Complete Block (RCB) Design ';
TITLE2 'Response Var. : Effectiveness in retarding bacteria';
TITLE3 'Treatment     : Washing solutions';
TITLE4 'Block         : Testing days  ';
DATA BACTERIA;
/* @@ means a loop in reading input variable sequence */
INPUT DAYS SOLUTION EFFECTNS @@;
CARDS;
1 1 13 2 1 22 3 1 18 4 1 39
1 2 16 2 2 24 3 2 17 4 2 44
1 3  5 2 3  4 3 3  1 4 3 22
;
RUN;

/* Print the original data set                   */
PROC PRINT;
RUN;

/* Create Table & tabulate input data set        */
/* Nicety, but not absolutely necessary for      */
/* the analysis - you may skip                   */
PROC TABULATE;
     CLASS SOLUTION DAYS ;
     VAR EFFECTNS;
     TABLE SOLUTION, DAYS*EFFECTNS;
     KEYLABEL SUM='Y(IJ)';
RUN;

/* Analysis of Variance (ANOVA)                  */
PROC ANOVA;
     CLASS DAYS SOLUTION;
/* Dependent = Effects                           */
     MODEL  EFFECTNS = DAYS SOLUTION;
RUN;