data temp1;
format formula $200.;
input formula $ num denom num_admin num_ehr elig_pop;
datalines;
num/denom 17 250 . . .
num_admin+num_ehr/elig_pop . . 5 10 350
num+num_admin+num_ehr/elig_pop 14 . 4 18 400
;
run;
data want;
set temp1;
array x{*} num--elig_pop;
do i=1 to dim(x);
formula=prxchange(cats('s/\b',vname(x{i}),'\b/',x{i},'/i'),-1,formula);
end;
want=input(resolve(cats('%sysevalf(',formula,')')),best32.);
drop i;
run;
... View more
