（求助）从一个数据集生成若干个子数据集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

希望能从一个数据集中按照日期（序号）每三天变量（三行）生成一个子数据集，求助各位大牛！

rq                     xh
2005-01-04       1         
2005-01-05       2         
2005-01-06       3         
2005-01-07       4         
2005-01-10       5         
2005-01-11       6         
2005-01-12       7         
2005-01-13       8         
2005-01-14       9         
2005-01-17       10

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集 求助 数据集

有一个笨办法

data aa1;
informat rq yymmdd10.;
format rq yymmdd10.;
input rq xh;
cards;
2005-01-04       1         
2005-01-05       2         
2005-01-06       3         
2005-01-07       4         
2005-01-10       5         
2005-01-11       6         
2005-01-12       7         
2005-01-13       8         
2005-01-14       9         
2005-01-17       10
;
run;

data _null_;
set aa1 end=a;
if a=1 then call symput('total',ceil(_n_/3));
run;

%macro test;
%do i=0 %to &total;
data out&i;
set aa1 ;
if  (_n_>3*&i and _n_<=3*(&i+1)) then output out&i;
%end;
%mend;

%test;

非常感谢，解决了我的大问题！

2# flutter88

1# 人生海海

1. 
   
2. data _null_;
   
3. set aa1 end=_endof;
   
4. if _endof then call symput('total',put(ceil(_n_/3), 10.));
   
5. run;
   
6. %macro subsets;
   
7. data %do i=1 %to &total; out&i  %end;;
   
8.   set aa1;
   
9.   if _n_ <=3 then  output out1;
   
10.   %if &total>1 %then%do;
    
11.    %do i=2 %to &total;
    
12.     else if _n_ <=3*&i then output out&i;
    
13.    %end;
    
14.   %end;
    
15. run;
    
16. quit;
    
17. %mend subsets;
    
18. 
    
19. %subsets
    
20. ;
    

复制代码

4# jingju11

强，这样效率改进很多了，呵呵

data _null_;

set aa1 end=_endof;

if _endof then call symput('total',put(ceil(_n_/3), 10.));

run;

%macro subsets;

data %do i=1 %to &total; out&i  %end;;

  set aa1;

  if _n_ <=3 then  output out1;

  %if &total>1 %then%do;

   %do i=2 %to &total;

    else if _n_ <=3*&i then output out&i;

   %end;

  %end;

run;

quit;

%mend subsets;



%subsets

;

好样的

proc sql noprint;select count(*) into:  n from aa1;quit;
%macro create;
  %do i=1 %to &n;
    %if %sysfunc(mod(&i,3))=0 %then %do;
    data temp%sysfunc(compress(%eval(&i/3)));
        set temp;
    if _n_>%eval(&i-3) and _n_<=&i then output;
        run;
    %end;
  %end;
%mend create;
%create;