如何将某个变量的最大和最小1%数据变缺失

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

不要对变量sort，然后取最大和最小的1%观测，我有很多变量，数据也很大，sort太慢。最好谁能给个宏程序，对任何变量都可以做的，求高手

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：SOR 求高手 多变量 宏程序 如何 程序 最好

data temp01;
        do id = 1 to 10000;
                v = ceil(rannor(0)*10);
                output;
        end;
run;

%macro data_sampling(var, top_or_bottom_flg, percent);
proc sql;
        drop table temp02;
        drop table temp03;
quit;
data _null_;
        set temp01 nobs=n;
        call symputx('n', max(1, floor(n*&percent.)) );
        stop;
run;
%do ii = 1 %to &n.;
        %if &ii. = 1 %then %do;
                data temp02(keep = a b);
                        retain a;
                        retain b;
                        set temp01 end=eof;
                        if _n_ = 1 then do;
                                a = id;
                                b = v;
                        end;else do;
                                %if "&top_or_bottom_flg." = "top" %then %do;
                                if b < v then do;
                                        a = id;
                                        b = v;
                                end;
                                %end;%else %do;
                                if b > v then do;
                                        a = id;
                                        b = v;
                                end;
                                %end;
                        end;
                        if eof then output;
                run;
                proc append base = temp03 data = temp02; run;
        %end;%else %do;
                data temp02(keep = a b);
                        retain a;
                        retain b;
                        if 0 then set temp03(keep = a);
                        if _n_ = 1 then do;
                                dcl hash h(dataset:"temp03");
                                h.definekey("a");
                                h.definedone();
                        end;
                        set temp01 end=eof;
                        if h.check(key:id) then do;
                                if _n_ = 1 then do;
                                        a = id;
                                        b = v;
                                end;else do;
                                        %if "&top_or_bottom_flg." = "top" %then %do;
                                        if b < v then do;
                                                a = id;
                                                b = v;
                                        end;
                                        %end;%else %do;
                                        if b > v then do;
                                                a = id;
                                                b = v;
                                        end;
                                        %end;
                                end;
                        end;
                        if eof then output;
                run;
                proc append base = temp03 data = temp02; run;
        %end;
%end;
%mend;

%data_sampling(var = v, top_or_bottom_flg = top, percent = 0.01);

maidenhan 发表于 2012-7-16 09:13
data temp01;
        do id = 1 to 10000;
                v = ceil(rannor(0)*10);

你是以前写好的还是现写的？

你的要求就是做winsorize处理
可以把双尾处指定观测赋值或删除
坛子里就有相关的宏
你搜搜看，可以直接用

Imasasor 发表于 2012-7-16 09:18
你是以前写好的还是现写的？

今天早上写的

maidenhan 发表于 2012-7-16 09:39
今天早上写的

太牛啦。

playmore 发表于 2012-7-16 09:34
你的要求就是做winsorize处理
可以把双尾处指定观测赋值或删除
坛子里就有相关的宏

in terms of means, that is trimmed mean but not winsorized mean. jingju

jingju11 发表于 2012-7-16 10:35
in terms of means, that is trimmed mean but not winsorized mean. jingju

嗯，我知道，坛子里有关于Winsorize的宏
里面有一个参数，可以选择把落在双尾的观测删掉或winsorized
若是选删掉应该符合lz的要求