%mktbsize(nattrs=9, setsize=2 to 9, nsets=1 to 20)

%mktbibd(nattrs=9, setsize=5, nsets=18, seed=377, out=sasuser.bibd)

title 'Best Worst Example with Cell Phone Attributes';

data bestworst;
  input Sub $ @4 (b1-b18 w1-w18) (1.);
  datalines;
 1 188661884399349653941955342212935494
 2 765358873891388493922673644336595554
 3 782126282892848564995993447213935655
 4 481363264246399187162125415351281453
 5 787168863811878175225995382352235293
 6 787658867891878667495965442313345453
 7 788171867736888187465395344393344453
 8 788771867711888687445353445353335254
 9 188778887896878687425323443242344454
10 788778887816888687445353444343344454
11 787778877816878667442353343343235453
12 787778387711898667425321443253544594
13 767668285791988687441951364232234194
14 187168877741878687445323445216334453
15 788176487116988675492393314339579457
16 267665615733884677442193342349545564
17 481191867813938266147956244139584594
18 725778814832585185141193643296944467
19 188678863811279263445123344253934596
20 728698612719281483265755285851944597
;

%let attrlist=Camera,Flip,Hands Free,Games,Internet
,Free Replacement,Battery Life,Large Letters,Applications;

%phchoice( on )

%mktmdiff(bw, nattrs=9, nsets=18, setsize=5, attrs=attrlist,
          data=bestworst, design=sasuser.bibd)

%mktmdiff(bw, nattrs=9, nsets=18, setsize=5,
     attrs=attrlist, classopts=zero='Internet',
     data=bestworst, design=sasuser.bibd)