data have; infile cards; input @1 cat 2. @5 var_1 2. @9 var_2 2. @13 var_3 2. @17 var_4 2. @21 var_5 2. @25 count 8. ; cards; 0 0 100 0 1 200 0 2 300 0 3 400 0 4 500 0 5 600 0 0 700 0 1 800 0 2 900 0 3 1000 0 4 1100 0 5 1200 0 0 1300 0 1 1400 0 2 1500 0 3 1600 0 4 1700 0 5 1800 0 0 1900 0 1 2000 0 2 2100 0 3 2200 0 4 2300 0 5 2400 0 0 2500 0 1 2600 0 2 2700 0 3 2800 0 4 2900 0 5 3000 1 0 3100 1 1 3200 1 2 3300 1 3 3400 1 4 3500 1 5 3600 1 0 3700 1 1 3800 1 2 3900 1 3 4000 1 4 4100 1 5 4200 1 0 4300 1 1 4400 1 2 4500 1 3 4600 1 4 4700 1 5 4800 1 0 4900 1 1 5000 1 2 5100 1 3 5200 1 4 5300 1 5 5400 1 0 5500 1 1 5600 1 2 5700 1 3 5800 1 4 5900 1 5 6000 ; run; * transpose 1 ; proc transpose data=have out=want1; var var_1-var_5; by count cat; run; * transpose 2 ; proc sort data=want1; by _name_ col1; run; proc transpose data=want1 out=want2; var count; by _name_ col1; id cat; where col1^=.; run; ... View more

data test; input bin $ prob; cards; a .2 a .3 a .6 a .8 b .5 b .6 b .7 b .8 c .1 c .4 c .5 c .7 c .8 ; run; data test2;   do until (last.bin);     set test;     by bin;     if first.bin then no=0;     no + 1;   end;   do until (last.bin);     set test;     by bin;     cum_per = sum(cum_per, (prob / no));     output;   end; run; ... View more