/**********************************************************************/
/*    Atkinson, Donev, and Tobias, "Optimum Experimental Designs"     */
/*                                                                    */
/*    NAME: Program 1.1                                               */
/*   TITLE: Data for Table 1.1 - Desorption of carbon monoxide        */
/*    KEYS:                                                           */
/*    DATA: Carbon monoxide desorption                                */
/*                                                                    */
/*  Author: Randy Tobias                                              */
/* History:                                                           */
/*    Created...............................................27Jun2007 */
/**********************************************************************/

title1 "Data for Table 1.1 - Desorption of carbon monoxide";
data CO;
   input KCRatio n @@;
   do i = 1 to n;
      input Desorbed @@;
      output;
      end;
datalines;
0.05 2 0.05 0.10
0.25 2 0.25 0.35
0.50 3 0.75 0.85 0.95
1.25 5 1.42 1.75 1.82 1.95 2.45
2.10 6 3.05 3.19 3.25 3.43 3.50 3.93
2.50 4 3.75 3.93 3.99 4.07
;
proc print data=CO;
run;
title1;