%mktex(3 ** 9, n=27, seed=424)

data key;
   input (Brand x1-x3) ($);
   datalines;
Acme   x1 x2 x3
Ajax   x4 x5 x6
Widgit x7 x8 x9
;

%mktroll(design=randomized, key=key, alt=brand, out=cand)

%choiceff(data=cand, model=class(brand x1-x3 / sta), seed=420,
          nsets=18, nalts=3, options=relative, beta=zero)

proc freq data=best;
   tables set;
run;


%mktdups(branded, data=best, factors=brand x1-x3, nalts=3, out=nodups)


proc freq data=nodups;
   tables set;
run;


%mktex(2 ** 5, n=2**5, seed=109)

%choiceff(data=randomized, model=class(x1-x5 / sta), seed=93,
          nsets=42, flags=4, options=relative, beta=zero)
%mktdups(generic, data=best, factors=x1-x5, nalts=4, out=out)

proc print data=best;
   var x1-x5;
   id set;
   by set;
   where set in (2, 25, 39);
run;