/**********************************************************************/
/*    Atkinson, Donev, and Tobias, "Optimum Experimental Designs"     */
/*                                                                    */
/*    NAME: Program 4.1                                               */
/*   TITLE: Example 4.1 - Response surface model                      */
/*    KEYS: Response surface regression                               */
/*    DATA: Freeze drying                                             */
/*                                                                    */
/*  Author: Randy Tobias                                              */
/* History:                                                           */
/*    Created...............................................27Jun2007 */
/**********************************************************************/

title1 "Example 4.1 - Response surface model";

/*
/  Data from Table 4.1.
/---------------------------------------------------------------------*/
data FreezeDrying;
   do Glycerine = 10 to 30 by 10;
      do Speed = 10 to 30 by 10;
         input Survive @@;
         output;
         end;
      end;
datalines;
 96  85  82
100  92  80
 96  88  76
;

/*
/  Response surface regression analysis: Note the parameter estimates
/  for the coded data in the right-hand column of the corresponding
/  table of the output.
/---------------------------------------------------------------------*/
proc rsreg data=FreezeDrying;
   model Survive = Glycerine Speed;
run;
title1;