huangruiji110 发表于 2011-8-17 10:05
请问如何循环取一个数据集的每几行形成一个新的数据集，比如说我的一个数据集总共有3731行，我想把每91行 ...

借花献佛 http://communities.sas.com/message/102641#102641

另一种方法：
data _null_;
        if 0 then set sashelp.class nobs=nobs;
        length dslist $100;
        size=6;
        dsnum=ceil(nobs/size);
        do i=1 to dsnum;
           dslist=cat(strip(dslist)," ds"||strip(i));
        end;
    call execute("data "||trim(dslist)||";");
        call execute("    set sashelp.class;");
        do i=1 to dsnum;
           call execute( "   if "||strip((i-1)*size)||" <_n_<= "||strip(i*size)||" then output ds"||strip(i)||";");
        end;
        call execute("run;");
run;

运行出现错误了，是不是我哪里错了？我只是把YOUDATA改为我的数据名而已

把其中的sashelp.class,改过来,至于新产生的数据的命名,你可以自己确定.看看我给的链接,里面的hash表很给力啊,本人不熟.

data objet;
   do obsnum=91 to 3731 by 91;
      set origine point=obsnum;
      output;
   end;
   stop;
run;

Does it work?

It may not work as he/she wanted.
This data step creates only one dataset: OBJET. It doesn't split the dataset ORIGINE into several datasets.

But I think it's a good one when we want to subset a dataset.

额，是我看错问题了

楼上和楼楼上，请问下
一个data步遍历一次输出到n张表快
还是分n个data步用point输出快啊？

这个问题不懂，应该和数据集大小，和要分成多少块有关系。

做了个小测试：

740  data test;
741       do i=1 to 1000000;
742          varlue=ranuni(0);
743          output;
744       end;
745  run;
746
747  %macro split(origin=test, dsnum=, times=100);
748
749  %put %str( );
750  %put %str(If we want to split a dataset into &dsnum datasets and do it &times times:);
751    *** Split in one data step;
752    %let totaltime=0;
753    %do j=1 %to &times;
754          %let timestart=%sysfunc(time());
755          data %do i=1 %to &dsnum;
756                  test&i
757               %end;
758              ;
759              set &origin nobs=n;
760              obs=ceil(n/&dsnum);
761              %do i=1 %to &dsnum;
762                  %if &i ne 1 %then %do;   else   %end;
763                  if %eval(&i-1)*obs<_n_<=&i*obs then output test&i;
764              %end;
765          run;
766          %let timestop=%sysfunc(time());
767          %let timeused=%sysevalf(&timestop-&timestart);
768          %let totaltime=%sysevalf(&totaltime+&timeused);
769     %end;
770
771      %let totaltime=%sysfunc(round(&totaltime,0.01));
772      %put %str(   when spliting in one data step, we need: &totaltime seconds.);
773
774
775    *** Split in separate data steps;
776    %let totaltime=0;
777
778    %do j=1 %to &times;
779        %do i=1 %to &dsnum;
780                data _null_;
781                    if 0 then set &origin nobs=n;
782                    obs=ceil(n/&dsnum);
783                    call symputx("start",(&i-1)*obs+1);
784                    call symputx("end",min(&i*obs,n));
785                run;
786
787             %let timestart=%sysfunc(time());
788              data test&i;
789                 do obs=&start to &end;
790                     set &origin nobs=n point=obs;
791                     output;
792                 end;
793                 stop;
794              run;
795              %let timestop=%sysfunc(time());
796              %let timeused=%sysevalf(&timestop-&timestart);
797              %let totaltime=%sysevalf(&totaltime+&timeused);
798         %end;
799     %end;
800
801      %let totaltime=%sysfunc(round(&totaltime,0.01));
802      %put %str(   when spliting in separate data steps, we need: &totaltime seconds.);
803      %put %str( );
804      %put %Str( );
805  %mend;
806
807  options nonotes;
808  %split(dsnum=10,times=10)

If we want to split a dataset into 10 datasets and do it 10 times:
   when spliting in one data step, we need: 4.11 seconds.
   when spliting in separate data steps, we need: 6.31 seconds.


809
810
811  %split(dsnum=10,times=100)

If we want to split a dataset into 10 datasets and do it 100 times:
   when spliting in one data step, we need: 41.36 seconds.
   when spliting in separate data steps, we need: 54.25 seconds.


812
813  %split(dsnum=100,times=10)

If we want to split a dataset into 100 datasets and do it 10 times:
   when spliting in one data step, we need: 28.47 seconds.
   when spliting in separate data steps, we need: 14.59 seconds.


814  %split(dsnum=1000,times=10)

If we want to split a dataset into 1000 datasets and do it 10 times:
   when spliting in one data step, we need: 371.59 seconds.
   when spliting in separate data steps, we need: 104.97 seconds.


815  %split(dsnum=4,times=1000)

If we want to split a dataset into 4 datasets and do it 1000 times:
   when spliting in one data step, we need: 349.94 seconds.
   when spliting in separate data steps, we need: 492.72 seconds.

请问这里的sashelp.class 是数据集的名字吗？