*********************************************************;
***      EFFICIENCIES OF A 2**4 FACTORIAL DESIGN      ***;
*** FOR THE MODEL INCLUDING ALL 2 FACTOR INTERACTIONS ***;
*********************************************************;

DATA MUST;
  DO X4 = -1 TO 1 BY 2;  
  DO X3 = -1 TO 1 BY 2;
  DO X2 = -1 TO 1 BY 2;  
  DO X1 = -1 TO 1 BY 2;  OUTPUT;
  END; END; END; END;

DATA IN;
     DO X1=-1 TO 1 BY 1;
     DO X2=-1 TO 1 BY 1;
     DO X3=-1 TO 1 BY 1;
     DO X4=-1 TO 1 BY 1; 
     OUTPUT; END; END; END; END; 
TITLE;

PROC OPTEX DATA=IN;
  EXAMINE DESIGN;
  MODEL X1|X2|X3|X4@2;
  GENERATE METHOD=FEDOROV CRITERION=D ITER=1 AUGMENT=MUST N=16;
TITLE 'EFFICIENCIES OF A 2**4 FACTORIAL DESIGN';
TITLE2 'FOR THE MODEL INCLUDING ALL 2 FACTOR INTERACTIONS';
RUN;


**************************************************************;
*** EFFICIENCIES OF A 2**(6-2) FF DESIGN WITH E=ABC  F=BCD ***;
*** FOR THE MODEL INCLUDING ALL 2 FACTOR INTERACTIONS      ***;
**************************************************************;

DATA MUST;
  DO X4 = -1 TO 1 BY 2;  
  DO X3 = -1 TO 1 BY 2;
  DO X2 = -1 TO 1 BY 2;  
  DO X1 = -1 TO 1 BY 2;
     X5 = X1*X2*X3;
     X6 = X2*X3*X4;  OUTPUT;
  END; END; END; END;

DATA IN;
     DO X1=-1 TO 1 BY 1;
     DO X2=-1 TO 1 BY 1;
     DO X3=-1 TO 1 BY 1;
     DO X4=-1 TO 1 BY 1; 
     DO X5=-1 TO 1 BY 1;
     DO X6=-1 TO 1 BY 1;  
     OUTPUT; END; END; END; END; END; END;
TITLE;

PROC OPTEX DATA=IN;
  EXAMINE DESIGN;
  MODEL X1 X2 X3 X4 X5 X6;
  GENERATE METHOD=FEDOROV CRITERION=D ITER=1 AUGMENT=MUST N=16;
TITLE 'EFFICIENCIES OF A 2**(6-2) FRACTIONAL FACTORIAL DESIGN';
TITLE 'FOR THE FIRST ORDER MODEL';
RUN;