根据通话记录来创建关系矩阵

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好，又来打扰大家了，我现在有一个表如下：
number_x       number_y
           A                     B
           A                     B
           A                     B
           A                     C
           B                     C
           B                     C
           C                     B
           C                     A
           C                     B
           C                     D
请问在SAS中如何通过编程得到如下的矩阵：
           A          B          C          D
A         0          1          1           0
B         0          0          1           0
C         1          1          0           1
D         0          0          0           0
这个关系吗我简单说下，拿通话来说，A、B、C是不能打给它们自身的，若A有打给B，不管打过几次，矩阵中位置（A，B）的值就是1，若A没打给B，（A，B）的值就是0。依次类推。请问可以做到吗？
还有，SAS可以创建的矩阵的行数与列数有没有限制，可以生成三十万行三十万列的矩阵吗？希望有能人指导下，谢谢~~

扫码加我 拉你入群

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

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

分享1 收藏1 回帖

关键词：Number NUM Ber 大家好 有没有 记录 如何

1. data test1;
   
2. input number_x $ number_y $ flag;
   
3. cards;
   
4. A B 1
   
5. A B 1
   
6. A B 1
   
7. A C 1
   
8. B C 1
   
9. B C 1
   
10. C B 1
    
11. C A 1
    
12. C B 1
    
13. C D 1
    
14. ;
    
15. 
    
16. /*number_x和number_y是否有相同数量的类别，若number_y比number_x多，则先做以下处理，然后在进行转置；否则若一样，可以直接进行转置*/
    
17. proc sort data=test1(keep=number_y) out=test2(rename=(number_y=number_x)) nodupkey;
    
18.         by number_y;
    
19. run;
    
20. 
    
21. data test3;
    
22.         merge test1 test2;
    
23.         by number_x;
    
24. run;
    
25. 
    
26. proc sort data=test3 out=test4 nodupkey;
    
27.         by number_x number_y;
    
28. run;
    
29. 
    
30. proc transpose data=test4 out=test5(drop=_NAME_);
    
31.         var flag;
    
32.         id number_y;
    
33.         by number_x;
    
34. run;
    
35. 
    
36. data test6;
    
37.         retain number_x A B C D;
    
38.         set test5;
    
39.         array nums _numeric_;
    
40.                 do over nums;
    
41.                         if nums=. then nums=0;
    
42.                 end;
    
43. run;

复制代码

这就看你的内存等硬件

楼上正解，向优秀的程序员致敬

我的一点点想法。
http://blog.sina.com.cn/s/blog_a3a9263601012yga.html