data a;
input a b c d e;
cards;
11 22 33 44 55
89 45 55 59 63
66 0 99 0 0
66 0 99 0 0
66 0 99 0 0
;
run;
data b;
input a b c d e;
cards;
11 22 33 44 55
89 45 55 59 63
66 0 99 0 0
66 0 99 0 0
66 0 99 0 0
;
run;
proc iml;
use a;
read all var _num_ into x[c=vname];
close;
use b;
read all var _num_ into y;
close;
colSums = y[+, ];
want=x/colSums ;
create want from want[c=vname r=vname];
append from want[r=vname];
close;
quit;
proc print noobs;run;
... View more
