求助SAS如何批量剔除变量的极端值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教论坛里SAS的高手，如何能够批量将变量剔除1%分位数以下和99%分位数以上的值，我之前看了论坛里的处理一个的方法是
data t1;
do id=1 to 20;
   x=ranuni(1223);
    output;
end;
run;

proc means data=t1 mean median;
  var x ;
  output out=exval p1=p1 p99=p99;
run;

proc sql;
  create table t2 as
  select a.* from t1 as a
  where a.x > ( select p1 from exval) and a.x < ( select p99 from exval);
  quit;
proc print data=t2;
run;
很想知道当变量很多时，该如何处理呢，谢谢！LZ在学SAS时，实在很笨。。。

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：剔除变量 极端值 proc sql Select output 如何

顶~好专业的东西啊~

写一个宏，参数为(逻辑库，数据集，变量列表)，宏功能模块如下：
1.将变量列表中的每个变量赋给一个宏变量，生成变量总数宏变量；
2.执行循环，对每个变量(也就是新生成的宏变量)统计出1%分位数和99%分位数(应用proc means过程)；
3.剔除值，可以应用上面的proc sql过程，或者，将1%分位数和99%分位数分别赋给不同的宏变量，用if语句进行处理；

如果是对多个变量做同样的重复操作，确实是用宏来实现。
1、定义宏变量 %let a=x;
2、引用宏变量，在proc means,与proc sql过程中， 用&a来代表x；
3、重复，只要把 a 定义为其他你需要研究的变量 y x z...., 就可自动实现proc means, proc sql 对 y, x, z.....的重复讨论了。
当然，数据库的名字要相应更改，以保存不同的结果。

gaotao0727 发表于 2013-3-19 10:02
写一个宏，参数为(逻辑库，数据集，变量列表)，宏功能模块如下：
1.将变量列表中的每个变量赋给一个宏变量 ...

谢谢您的回复，但可不可以说的比较详细一些呢，不好意思，我刚接触SAS没多久，水平还停留在简单的排序，删除上面，对宏还不了解，借的书上也没有专门讲宏的篇章，可否具体说一下该如何处理呢，我现在的变量有acc cf2009 cf2010 cf2008 dcf2009 dcfcf 这几个变量。非常谢谢您！

hhtpku 发表于 2013-3-19 13:56
如果是对多个变量做同样的重复操作，确实是用宏来实现。
1、定义宏变量 %let a=x;
2、引用宏变量，在proc ...

谢谢您的回复，我试试呢，刚接触SAS，不太懂宏

剔除异常值，涉及到算法问题，按照分位数来剔除并不合理。

即使无异常数据点，按照分位数发，也会被踢除一些的，没有实际意义。

luijb 发表于 2013-3-19 23:53
剔除异常值，涉及到算法问题，按照分位数来剔除并不合理。

即使无异常数据点，按照分位数发，也会被踢除 ...

有道理，建议用哪种算法呢？

战士1009 发表于 2013-3-19 18:56
谢谢您的回复，但可不可以说的比较详细一些呢，不好意思，我刚接触SAS没多久，水平还停留在简单的排序，删 ...

1. /* Description of parameters
   
2. Lib:library
   
3. DSin:dataset
   
4. VarList:the List of variables
   
5. */
   
6. %macro ExtreDel(Lib,DSin,VarList);
   
7. /*  Assign every variable from the VarList to a macro variable  */
   
8. %let i=1;
   
9. %let condition = 0;
   
10.     %do %until (&condition =1);
    
11.     %let Var&i=%scan(&VarList,&i);
    
12.       %if "&&Var&i" ="" %then %let condition =1;
    
13.       %else %let i = %Eval(&i+1);
    
14.     %end;
    
15. %let Nvars=%eval(&i-1);
    
16. /*  Execution of the loop,delete the extreme values of every variable  */
    
17. %do i=1 %to &Nvars;
    
18.   proc means data=&Lib..&DSin mean median;
    
19.     var &&Var&i;
    
20.     output out=exval p1=p1 p99=p99;
    
21.   run;
    
22. 
    
23.   proc sql;
    
24.     select p1,p99 into :p1V,:p99V from exval;
    
25.   quit;
    
26. 
    
27.   %put &p1V;
    
28. 
    
29.   data &Lib..&DSin;
    
30.     set &Lib..&DSin;
    
31.     if &&Var&i > &p1V and &&Var&i < &p99V;
    
32.   run;
    
33. %end;
    
34. 
    
35. proc datasets library=work nodetails nolist;
    
36.   delete exval;
    
37. quit;
    
38. %mend;
    
39. 
    
40. /*  One Example
    
41. %let Lib=work;
    
42. %let DSin=test;
    
43. %let VarList=acc cf2009 cf2010 cf2008 dcf2009 dcfcf;
    
44. %ExtreDel(&Lib,&DSin,&VarList);
    
45. */

复制代码

gaotao0727 发表于 2013-3-20 11:26

高手大赞啊！如何能达到写出这程序的水平啊？可否推荐一些资料学习下？多谢啦！