%mktkey(5 1)

data key;
   input (Brand Price) ($);
   datalines;
A x1
B x2
C x3
D x4
E x5
;


%mktex(3 ** 5, n=12)


%mktroll(design=randomized, key=key, OUT=sasuser.design, alt=brand)

%mktex(2 ** 12, n=16, seed=109)

data key;
   input (Brand Price Size Color Shape) ($); 
   datalines;
A     x1     x2   x3    x4
B     x5     x6   x7    x8
C     x9    x10  x11   x12
None   .      .    .     .
;


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

%mktex(2 ** 14, n=16, seed=114)

data key;
   input (Brand Price Size Color Shape Pattern) ($);
   datalines;
A     x1     x2   x3    x4   x13
B     x5     x6   x7    x8     .
C     x9    x10  x11   x12   x14
None   .      .    .     .     .
;

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

%mktroll(design=randomized, key=key, out=sasuser.design,
         alt=brand, keep=x1 x5 x9)

%mktkey(3 3 t)
%mktroll(design=design, key=key,   out=frac)

%mktroll(design=design, key=3 3 t, out=frac)