nice work, keep on.

谢谢分享

不错

SAS 综合的大牛的帖子

很有内容，赞

非常好

mark这个好的~~

学习一下

是不是要坛友回复他所认为符合上述情况的贴子

为了未来，拼了

辛苦了！

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

新增 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!

有待学习

支持，辛苦了，谢谢。

Thanks for this contribution.

又更新了新的实用程序。大家留意。

版主辛苦了

不错的，学习用得着。

谢谢楼主！楼主辛苦！！

看看

作为热心学习者，时刻关注版主才是对的！

作为热心学习者，时刻关注版主才是对的！

呵呵，关注本版。

好帖啊，收藏了。。。。。。。。。。。