求大神指导，从一个数据集里条件选择子集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一个100行50列的数据，在50列数据中生成comb（50，k）个数据集，每个数据集是从50列数据选取k列的组合。穷尽所有组合。

注：comb（50，k）即为组合数。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据集 数据选取 COM 如何

1. data test;
   
2.         a=1;
   
3.         b=2;
   
4.         c=3;
   
5.         d=4;
   
6.         e=5;
   
7.         f=6;
   
8. run;
   
9. %MACRO T(k);
   
10. proc contents data=test out=t1(keep=name);quit;
    
11. data _null_;
    
12.         set t1 end=eof;
    
13.         call symputx(compress("v"||_n_),name);
    
14.         if eof then call symputx("n",_n_);
    
15. run;
    
16. %put &n &v2;
    
17.         data _null_;
    
18.                 length str $10000;
    
19.                 %do i=1 %to &n;
    
20.                         do a&i=0 to 1;
    
21.                 %end;
    
22.                         if sum(of a:)=&k then do;
    
23.                                 %do i=1 %to &n;
    
24.                                         if a&i=1 then str=catx(' ',str,"&&v&i");
    
25.                                 %end;
    
26.                                 call symputx(compress("keep"||ii),str);
    
27.                                         ii+1;
    
28.                         end;
    
29.                         str='';
    
30.                 %do i=1 %to &n;
    
31.                         end;
    
32.                 %end;
    
33.                 call symputx("ii",ii);
    
34.         run;
    
35.         data
    
36.                 %do i=0 %to %eval(&ii-1);
    
37.                         test_&i(keep=&&keep&i)
    
38.                 %end;
    
39.         ;
    
40.                 set test;
    
41.         run;
    
42. %MEND;
    
43. %T(3);

复制代码

soporaeternus 发表于 2015-3-13 10:54

你也在啊 老乡

sushe1527 发表于 2015-3-13 10:58
你也在啊 老乡

难得来看看......

soporaeternus 发表于 2015-3-13 10:54

第一次发帖，看到你回复我震惊了！！谢谢！！我试一下看。

%macro test(k,ds);
proc contents data=&ds out=temp1(keep=name varnum);quit;
proc transpose data=temp1 out=temp2 prefix=var;
        var name;
        id varnum;
run;
data _null_;
        set temp2;
        array var[*] $ var:;
        n=dim(var);
          ncomb=comb(n,&k);
   do j=1 to ncomb+1;
      call allcomb(j, &k, of var[*]);
      rc=dosubl('data want'||strip(put(j,best.))||';set yourdata; keep ' %do i=1 %to &k; || var&i %end; ||'; run;');
   end;
run;
%mend;
%test(3,yourdata)

jl60156 发表于 2015-3-15 10:17
%macro test(k,ds);
proc contents data=&ds out=temp1(keep=name varnum);quit;
proc transpose data=te ...

谢谢啊！！！请教一下你，那么多复杂的语句是靠那本书学的？我买了一本朱世武的SAS编程技术教程，但是上面关于call语句啥都没有。。能否给推荐点学习资料？

soporaeternus 发表于 2015-3-13 10:54

请教一下你，那么多复杂的语句是靠那本书学的？我买了一本朱世武的SAS编程技术教程，但是上面关于call语句啥都没有。。能否给推荐点学习资料和方法？

soporaeternus 发表于 2015-3-13 10:54

请教一下你，那么多复杂的语句是靠那本书学的？我买了一本朱世武的SAS编程技术教程，但是上面关于call语句啥都没有。。能否给推荐点学习资料和方法？