The code is hardly tested:
data want(keep= np_wtd cr_wtd);
set have;
length sum deno np_wtd cr_wtd 8;
array values[2, 4] NP_1W NP_2W NP_3W NP_4W CR_1W CR_2W CR_3W CR_4W;
array los[4] LOS_1W LOS_2W LOS_3W LOS_4W;
array results[2] np_wtd cr_wtd;
do j = 1 to 2;
sum = 0;
deno = 0;
do i = 1 to 4;
sum = sum(sum, values[j, i] * los[i]);
if not missing(values[j, i]) then do;
deno = sum(deno, los[i]);
end;
end;
results[j] = round(sum / deno, 0.01);
end;
run;
... View more
