%include 'C:\mr2020\mktex.sas';
%include 'C:\mr2020\mktdups.sas';
%include 'C:\mr2020\mktblock.sas';
%mktruns(2**5);
%mktex(2**5, n=32, seed=30);
proc format;
value a 1 = 'Low' 2 = 'High';
value b 1 = 'Low' 2 = 'High';
value c 1 = 'No' 2 = 'Yes';
value d 1 = 'No' 2 = 'Yes';
value e 1 = 'Barely' 2 = 'Strongly';
run;
%mktlab(data=design, /* input data set */
vars=A B C D E, /* new attribute names */
int=f1-f2, /* create 2 columns of 1??s in f1-f2 */
out=final, /* output design */
/* add a format statement for the attributes */
stmts=format A a. B b. C c. D d. E e.)
proc print; run;
%choiceff(data=final, /* candidate set of alternatives */
bestout=sasuser.twobytwo, /* choice design permanently stored */
model=class(A|B|C|D|E @2 / effects)/ /* model with effects coding */
cprefix=0 /* lpr=0 labels from just levels */
lprefix=0, /* cpr=0 names from just levels */
nsets=16, /* number of choice sets to make */
seed=30, /* random number seed */
flags=f1-f2, /* flag which alt can go where, 2 alts*/
options=relative, /* display relative D-efficiency */
beta=zero) /* assumed beta vector */
proc print data=sasuser.twobytwo;
var A -- E;
id set; by set;
run;
%mktdups (generic, data=sasuser.twobytwo, factors= A B C D E, nalts=2)
%mktblock (data=sasuser.twobytwo, nalts=2, nblocks=4, factors=A B C D E, seed=30)