SAS专版精要贴索引目录－－JUN 07, 2013更新...

辛苦了！

很不错的帖子，顶你！！！

新增 playmore 宏系列。

options

    mprintsymbolgen mlogic

      ;

%macro ransample_data(dsin,dsout,Replacement,SampleSize);

%if %upcase("&Replacement")="YES"  %then%do;

%*creating random sample with replacement;

   data &dsout(drop=i);

    do i=1to &SampleSize;

        PickIt=ceil(ranuni(123)*TotObs);

        ObsPicked=PickIt;

        set &dsin point=PickIt   nobs=TotObs;

        output;

      end;

      stop;

run;

%end;

%else  %if %upcase("&Replacement")="NO"  %then%do;

%* create random sample without replace;

  data &dsout(drop=SampleSize ObsLeft);

         SampleSize=&SampleSize;

         ObsLeft=TotObs;

         do while(SampleSize>0and ObsLeft>0) ;

           PickIt+1;

         if ranuni(123)<SampleSize/ObsLeft then

           do;

                ObsPicked=PickIt;

                set &dsin point=PickIt nobs=TotObs;

                output;

                SampleSize=SampleSize-1;

               end;

              ObsLeft=ObsLeft-1;

            end;

     stop;

run;

%end;

%else  %putERROR:Replacement shout be  yes or no ;

%mendransample_data;

   



   

%ransample_data(sashelp.class, class_data_rep,yes,10);

%ransample_data(sashelp.class, class_data_norep,no,10);

  %ransample_data(sashelp.class, class_data_norep,whatever,10);

千求百寻中，找到了支持！

千求百寻中，找到了支持！

看看

thanks! good job!

有待学习

支持，辛苦了，谢谢。