用SAS怎么剔除一符合条件的变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助SAS程序：
在分析的数据中要剔除这样一类变量，变量的所有取值一样或都是空值。

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：sas程序 程序

1. data have;
   
2.         input x0 $ x1-x4;
   
3. cards;
   
4. a 1 2 . 1
   
5. b 2 2 . 1
   
6. c 3 2 . 2
   
7. ;
   
8. 
   
9. 
   
10. %macro exclude;
    
11. 
    
12. data _null_;
    
13.         set have;
    
14.         array char[*] _character_;
    
15.         array num[*] _numeric_;
    
16.         call symputx ("nchar",dim(char));
    
17.         call symputx ("nnum",dim(num));
    
18.         stop;
    
19. run;
    
20. 
    
21. data _null_;
    
22.         set have end=eof;
    
23.         length vars $ 32767;
    
24.         retain vars "";
    
25.         %if &nchar. >0 %then %do;
    
26.                 array char[*] _character_;
    
27.                 array char1[&nchar.] $ _temporary_;
    
28.                 if _n_=1 then do;
    
29.                         do i=1 to &nchar.;
    
30.                                 char1[i]=char[i];
    
31.                         end;
    
32.                 end;
    
33.                 else do;
    
34.                         do ii=1 to &nchar.;
    
35.                                 if char[ii]^=char1[ii] and find(vars,vname(char[ii]))=0 then vars=catx(" ",strip(vars),vname(char[ii]));
    
36.                         end;
    
37.                 end;
    
38.         %end;
    
39.         %if &nnum. >0 %then %do;
    
40.                 array num[*] _numeric_;
    
41.                 array num1[&nnum.] _temporary_;
    
42.                 if _n_=1 then do;
    
43.                         do j=1 to &nnum.;
    
44.                                 num1[j]=num[j];
    
45.                         end;
    
46.                 end;
    
47.                 else do;
    
48.                         do jj=1 to &nnum.;
    
49.                                 if num[jj]^=num1[jj] and find(vars,vname(num[jj]))=0 then vars=catx(" ",strip(vars),vname(num[jj]));
    
50.                         end;
    
51.                 end;
    
52.         %end;
    
53.         if eof then call execute ('data want;set have;keep '||strip(vars)||';run;');
    
54. run;
    
55. 
    
56. %mend;
    
57. 
    
58. %exclude

复制代码

写的比较仓促，你先测试一下吧。 只要是观测值全部相同，就去掉。

select count(distinct name) into:num
from b;
select distinct name into:num1-:num%left(&num)
from from b;
quit;
%macro a;
%do i=1 %to #
proc sort data=a;
by num&i;
run;
data c&i;
set a;
by num&i;
if first.num&i. then do;first_num&i=num&i.; flg&i=0;end;
if num&i ne first_num&i then flg&i+1;
if last.num&i. and flg&i=0 then list&i=num&i;
run;
%end;
%mend a;

%macro b;
data d;
set a(drop= %do j=1 %to # list&j %end;);
run;
%mend b;
%b

2# elek.me


运行了一下程序，还存在问题
提示错误：不允许混合隐式和显式数组下标

4# shirly_zhang 奇怪了。   数组定义时的

1. [*]

复制代码

都被自动抹去了，不知道怎么原因，我现在已经修改过了，你再试试吧。应该没有问题的

data have;
        input x0 $ x1-x4;
cards;

a 1 2 . 1

a 2 2 . 1

a 3 2 . 2

;
data _null_;
      if 0  then  set have;
        array cha[*] _character_;
        array num[*] _numeric_;
        call symputx ("nchar",dim(char));
        call symputx ("nnum",dim(num));
        stop;
run;

data _null_;
       set have end=last;
     array cha[*] _character_;
     array num[*] _numeric_;
array first_cha(&nchar) _temporary_;
array first_num(&nchar) _temporary_;
array flg_cha(&nchar) (&nchar*0);
array flg_num(&nnum) (&nnum*0);
length list $100;
if _n_=1 then do;
do i=1 to &nchar;
first_cha(i)=cha[i];
end;
do i=1 to &nnum;
first_num(i)=num[i];
end;
end;
do i=1 to &nchar;
if cha[i] ne first_cha(i) then flg_cha(i)+1;
end;
do i=1 to &nnum;
if num[i] ne first_num(i) then flg_num(i)+1;
end;
if last=1 then do;
do i=1 to &nchar;
if flg_cha(i)=0 then list=catx('',list,vname(cha[i]));
end;
do i=1 to &nnum;
if flg_num(i)=0 then list=catx('',list,vname(num[i]));
end;
call symput ('mlist',list);
end;
run;
data have;
set have (drop=&milst);
run;

5# elek.me

恩，可以了，高手。。。

整体思路是：定义三组数组。第一组用来记录每一条观察，第二组数组（临时数组，具有retain功能），用来记录第一条观察。第三组观察，用来做标记：如果后面的观察跟第一条观察不同，标记数据就自动+1（累积语句，自动retain）。当最后一条的时候，用list 把那些观测都相同的，数组的名字，串在一起，用‘’隔开，同时赋给一个宏变量，因为是最后一条，不用retain

6# tiantianfrm

貌似有错误。。。

如果是我的话，我用个means然后把左右std=0的都取出来，然后drop.