如何根据不同条件生成数据集？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

是这样的，想要根据数据A的观测值数来生成新的数据集：
如果数据A的观测数小于等于20，那么就生成数据B，B=A；
如果数据A的观测数大于20，那么就生成数据C，C是从A中随机抽出20个数据。

请问如何实现？小弟跪谢了！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据集 如何实现 观测值 如何

%macro table;
%let disd=%sysfunc(open(A));
%let nobs=%sysfunc(attrn(&disd,nobs));
%if  &nobs<=20 %then %do;
data B;
set A;
run;
%end;
%else  %do;
proc  sql outobs=20;
create table c as
select * from a order by ranuni(0);
quit;
%end;
%mend;

%table

%let ds=sashelp.company;
%let sampsize=20;

data _null_;
    length code $1000;
    *** decide the number of observations;
    if 0 then set &Ds nobs=obsnum;
   
        *** when less than or equal to 20;
        if obsnum<=20 then do
       code ="data c; set &ds; run;";
           call execute(code);
           stop;
        end;

        *** when more than 20;
        else do ;
     code="data d(drop=sampsize obsleft);
                      sampsize=&sampsize;
                        obsleft=totobs;
                        do while(sampsize>0);
                                pickit+1;"
           ||         "if ranuni(0)<sampsize/obsleft then do;
                                        set &ds point=pickit nobs=totobs;
                                        output;
                                        sampsize=sampsize-1;
                                end;
                                obsleft=obsleft-1;
                        end;
                        stop;
                run;";
           call execute(code);
           stop;
        end;
run;

%macro test(dsn);
        proc sql noprint;
                select count(*) into: obsnum
                        from &dsn;
        quit;
        %if &obsnum le 20 %then %do;
                data test1;
                        set &dsn;
        run;
        %end;
        %else %do;
        proc surveyselect data=&dsn
                                        method=srs
                                        n=20
                                        out=test2;
        run;
        %end;
%mend test(dsn);
%test(rawdsn)

ziyenano 发表于 2012-11-28 15:50
%macro table;
%let disd=%sysfunc(open(A));
%let nobs=%sysfunc(attrn(&disd,nobs));

谢谢这位神！
我运行后为什么显示 “指定的查询涉及按其 SELECT 子句中没出现的一项排序。”呢？
是不是ranuni(0)的原因？
其他都可以，大神再看看，这种情况正常不？

daazx 发表于 2012-11-28 16:41
谢谢这位神！
我运行后为什么显示 “指定的查询涉及按其 SELECT 子句中没出现的一项排序。”呢？
是不是 ...

没什么影响，只不过随机数ranuni(0)没有在select中出现;
不放心可以改成这样
proc  sql outobs=20;
create table c as
select a.*,ranuni(0) as random from a  order by random;
quit;

看到各位大虾的代码，有2个问题：
1. 取随机数， ranuni VS rannor
rannor从正态分布中取(-1,1)
ranuni从均分分布中取(0,1)
两者分别的应用场景是什么
2. 抽样ranuni VS proc surveyselect
区别，应用场景各是什么？