移动式提取数据集中20个数据作为新的数据集！怎么做？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

一个数据集，有100只股票，每只股票有不同的交易时间，现在需要把每只股票的1~20个数据提出作为新数据集；2~21数据提出作为新数据集；……直到该股票数据结束。
附件是只有2只股票的数据集，望高手指点！！

test.xls (29.5 KB)

2011-10-9 21:26:58 上传

扫码加我 拉你入群

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

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

关键词：数据集 怎么做 高手指点 股票数据 交易时间

同求问 1~20  2~21 3~22 这样的有没有高人指点 谢谢

要用宏，且在嵌套到宏过程1中的DATA步中加入类似如下的语句：

data 新数据文件名
set 主数据文件名
if _n_ >= &宏变量名 and _n_ <= &宏变量名+20

之后，在将该宏过程1嵌套到更大的宏过程2中，过程2负责循环，每次依一定规律改变“新数据文件名”并将“&宏变量”每次加1，如此循环运行过程1

meishanjia1900 发表于 2011-10-10 17:49
要用宏，且在嵌套到宏过程1中的DATA步中加入类似如下的语句：

data 新数据文件名

光说不练哪。。 呵呵，玩笑。

1. proc import datafile="d:\sas\test.xls" dbms=excel2000 replace out=test;
   
2. run;
   
3. 
   
4. data _null_;
   
5.         set test;
   
6.         by stkcd notsorted;
   
7.         if first.stkcd then num=0;
   
8.         num+1;
   
9.         if last.stkcd then do;
   
10.                 if num>=20 then do i=1 to num-19 by 1;
    
11.                         call execute (" data stkcd_"||strip(stkcd)||"_"||strip(put(i,best.))||"_"||strip(put(i+19,best.))||";set test;if "||strip(put(i,best.))||"<=_n_<="||strip(put(i,best.))||"+19;run;");
    
12.                 end;
    
13.         end;
    
14. run;

复制代码

上面的程序小心运行啊，最好先用你的测试数据来测试一下，否则如果数据量大的话，会一下子生成好多数据集。

YueweiLiu 发表于 2011-10-10 18:55
光说不练哪。。 呵呵，玩笑。

强人，居然还可以这样编，佩服。

我还以为一定要用宏呢，原来还有execute这样方便的东西。

你看的是那本书？拜托推荐一下。

meishanjia1900 发表于 2011-10-10 20:27
强人，居然还可以这样编，佩服。

我还以为一定要用宏呢，原来还有execute这样方便的东西。

这个 call route 到处都可以看到。比如 the little sas book， sashelp 等。

lz貌似要做rolling reg

%let total=244;/*随便举个总数*/
%let size=20;/*这个是跨度*/
%macro aaa(datain=);
      %do i=1 %to %eval(&total.-&size.+1) %by 1;/*一次变动1个数据，只需改变步长就可以了*/
             data temp&i;
                   set &datain;
             run;
   %end;
%mend;
%aaa(datain=new);

额，编辑的时候漏了一点
%let total=244;/*随便举个总数*/
%let size=20;/*这个是跨度*/
%macro aaa(datain=);
      %do i=1 %to %eval(&total.-&size.+1) %by 1;/*一次变动1个数据，只需改变步长就可以了*/
             data temp&i;
                   set &datain;
                   if &i. <=_n_ <= %eval(&i.+&size.-1);
             run;
   %end;
%mend;
%aaa(datain=new);