It is very easy for IML .
data have;
input Outdoor Leisure Team Domestic Walk Cycle Total ;
cards;
0 0 15 20 0 0 35
0 10 0 10 5 0 25
35 0 50 0 15 0 85
;
run;
proc iml;
use have;
read all var _num_ into x[c=vname];
close;
ratio=t(x[+,]/sum(x[,ncol(x)]));
print (t(vname)) ratio[f=percent8.2];
quit;
... View more