Screening Design

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: ADXFRAC2                                            */
 /*   TITLE: Screening Design                                    */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Design of Experiments,Fractional Factorial Designs  */
 /*   PROCS:                                                     */
 /*    DATA:                                                     */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC: ADX Macros are stored in the AUTOCALL library       */
 /*                                                              */
 /****************************************************************/

options ps=32;


%adxgen;
%adxff;
%adxinit

%adxffd(filt1,7,8)

%adxdcode(filt1, t1 watersrc <res>  <well>
                /t2 material <site> <other>
                /t3 templevl <low>  <high>
                /t4 holdtime <low>  <high>
                /t5 filtclth <new>  <old>
                /t6 sodarate <fast> <slow>
                /t7 recycle  <yes>  <no>)

%adxrprt(filt1,time,seed=67890)

proc sort;
   by watersrc material templevl;
data filt1;
   set filt1;
   input @@ time;
   cards;
68.7 66.4 78.6 68.4 38.7 81 41.2 77.7
;

%adxcode(filt1,filt1cod,watersrc material templevl holdtime
                        filtclth sodarate recycle)
%adxffa(resp=time,res=3)
%adxalias(filt1cod,watersrc material templevl recycle sodarate
                   filtclth holdtime,7,4)



%adxinit
%adxffd(filt2,7,8)
data filt2;
   set filt2;
   array t{7};
   drop i;
   do i=1 to 7;        /* Fold-over the factor levels */
      t{i} = -t{i};
      end;
run;
%adxdcode(filt2, t1 watersrc <res>  <well>
                /t2 material <site> <other>
                /t3 templevl <low>  <high>
                /t4 holdtime <low>  <high>
                /t5 filtclth <new>  <old>
                /t6 sodarate <fast> <slow>
                /t7 recycle <yes>  <no>)
%adxrprt(filt2,time,seed=45678)

proc sort;
   by watersrc material templevl;
data filt2; set filt2;
   input @@ time;
   cards;
65.0 59.0 61.9 67.6 66.7 47.8 86.4 42.6
;
data filt; set filt1 filt2; run;


%adxcode(filt,filtcode,watersrc material templevl recycle
                       sodarate filtclth holdtime)
%adxffa(resp=time,res=4)