data _null_;
file 'c:\temp\8s6.sas';
array x(8) $1 ('a' 'b' 'c' 'd' 'e' 'f' 'g' 'h');
k=6;
n=dim(x);
nsets=comb(n, k);
do j=1 to nsets;
call allcomb(j, k, of x(*));
put 'temp' j '(keep=' x1-x6 'i j k)';
end;
run;
data %include 'c:\temp\8s6.sas';
;
set a;
run;


雷达卡
京公网安备 11010802022788号







