你都把关键的地方找好了,为什么不自己写啊?
[code:3j8ppmim]data aa;
array num{8} num1-num8 (0.001 0.002 0.005 0.01 0.02 0.05 0.10 0.20);
array prod{8} pro1-pro8 ;
do n=1 to 100;
do i=1 to 8;
prod(i)=tinv(1-num(i),n);
end;
output;
end;
run;
data aa;
label n='number of freedom';
label pro1='0.001'
pro2='0.002'
pro3='0.005'
pro4='0.01'
pro5='0.02'
pro6='0.05'
pro7='0.10'
pro8='0.20';
set aa;
format pro1-pro8 8.4;
keep n pro1-pro8;
run;
[/code:3j8ppmim]