/**********************************************************************/
/*    Atkinson, Donev, and Tobias, "Optimum Experimental Designs"     */
/*                                                                    */
/*    NAME: Program 1.3                                               */
/*   TITLE: Data for Table 1.3 - Breaking strength of cotton fibres   */
/*    KEYS:                                                           */
/*    DATA: Cotton fibre breaking strength                            */
/*                                                                    */
/*  Author: Randy Tobias                                              */
/* History:                                                           */
/*    Created...............................................27Jun2007 */
/**********************************************************************/

title1 "Data for Table 1.3 - Breaking strength of cotton fibres";
data Cotton;
   do Block = 1 to 3;
      do Treatment = 1 to 5;
         input Break @@;
         output;
         end;
      end;
datalines;
7.62 8.14 7.76 7.17 7.46
8.00 8.15 7.73 7.57 7.68
7.93 7.87 7.74 7.80 7.21
;
proc print data=Cotton;
run;
title1;