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)