有没有哪位大神解答一下小弟的疑惑，下面这个该怎么写程序啊？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一个数据流：a 2 b 3 c d 4 6，按下面要求创建SAS数据集。用语句input id $ no;  变量id取值上面数据流里的a,b,c,d，变量no取值2,3,4,6。但是这个数据流存在问题：如有的id没有no，有的no没有id。创建SAS数据集，删除只有id没有no或者只有no没有id的观测，即把上面的c和6去掉，最后得到三个观测，a 2, b 3与d 4。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：有没有 sas数据集 Input 数据流 数据集

1. data test;
   
2.   input x $ @@;
   
3. cards;
   
4. a 2 b 3 c d 4 6
   
5. ;
   
6. run;
   
7. 
   
8. *y为字符连续出现的次数，z为数值连续出现的次数;
   
9. data test1;
   
10.    set test;
    
11.    n=_n_;
    
12.    retain y z;
    
13.    if prxmatch("/\d/", x)=0 and  prxmatch("/\d/", lag(x))=0 then
    
14.               do;
    
15.                      y+1;
    
16.                   end;
    
17.   else if prxmatch("/\d/", x)=0 and  prxmatch("/\d/", lag(x))^=0 then
    
18.               do;
    
19.                      y=1;
    
20.                   end;
    
21.   else y=.;
    
22.         if prxmatch("/\d/", x)^=0 and  prxmatch("/\d/", lag(x)) ^=0 then
    
23.               do;
    
24.                      z+1;
    
25.                   end;
    
26.    else if prxmatch("/\d/", x)^=0 and  prxmatch("/\d/", lag(x)) =0 then
    
27.               do;
    
28.                      z=1;
    
29.                   end;
    
30.   else z=.;
    
31. run;
    
32. 
    
33. proc sort data=test1;
    
34.     by descending n;
    
35. run;
    
36. 
    
37. data test2;
    
38.    set test1;
    
39.    if (y<lag(y) and y^=.) or z>1 then delete;
    
40. run;
    
41. 
    
42. proc sort data=test2;
    
43.    by n;
    
44. run;

复制代码

乐天天12300 发表于 2021-1-14 22:08

感谢大神