计数问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一组数据如下：
x     y
1     5.5
1     4
1     7
1     -5.5
1     -3
1      9
需要进行计数和求和，要得到的计数结果是3，也就是说绝对值相等的两行数据抵消，其他正数记1，求和无所谓。
谢谢解答！！！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：绝对值 无所谓 绝对值

1. data a;
   
2.         input x y;
   
3.         cards;
   
4.         1 5.5
   
5.         1 4
   
6.         1 7
   
7.         1 -5.5
   
8.         1 -3
   
9.         1 9
   
10.         ;
    
11. run;
    
12. 
    
13. data b;
    
14.         set a;
    
15.         z=abs(y);
    
16.         if y<0 then num=-1;else
    
17.         if y>0 then num=1;else
    
18.         num=0;
    
19. run;
    
20. 
    
21. proc summary data=b;
    
22.         class x z;
    
23.         var num;
    
24.         output out=c(drop=_type_ _freq_) sum=;
    
25. run;
    
26. 
    
27. proc sql noprint;
    
28.         create table d as
    
29.         select x,sum(abs(num)) as total from c
    
30.         where x~=. & z~=.
    
31.         group by x
    
32.         ;
    
33. quit;

复制代码

土方法。。

不得不说，SAS将简单问题复杂化，很***。SAS就是狗屎软件。

先取绝对值，sort nodupkey一下，再计数。

1. data _null_;
   
2.         set a end =Eof;
   
3.         array t[1000] _temporary_; *array dimension should be >= obs in dataset;
   
4.         t[_n_] =y;
   
5.         if t[_n_] and _n_ >1 then do i =1 to _n_-1;
   
6.                 if t[_n_] =-t[i] then do;
   
7.                         call missing(t[_n_], t[i]);
   
8.                         leave;
   
9.                 end;
   
10.         end;
    
11.         if Eof then do;
    
12.                 do i =1 to _n_;
    
13.                         if t[i] >0 then s ++1;
    
14.                 end;
    
15.                 put s=;
    
16.         end;
    
17. run;

复制代码

My pc was very slow for this code. you can try it.
Jingju

非常感谢各位的回复！
@freerunning_sky：土办法试过了很有效，但计数为4，我需要等于3，所以如下
data d;
set c;
if num < 0 then num = 0;
run;

proc summary data=d nway;
        class x;
        output out=e(drop=_type_ _freq_) sum(num)=num;
run;

@Jingju: 你的方法我还没试，先谢过！

写这个程序是为了解决一个实际中的问题，在一个公司的销售数据中有正营业额和负营业额，负的情况就是退货。退货有两种，全退和部分退。营业额的统计可以求和算出，但是销售的次数就要根据情况做个算法使得统计数据尽量真实，它会影响到平均的营业额。在全退的情况下，正负销售额都不算次数，部分退货时退货不算销售次数。因为无法辨别某个退货是某次销售的全退，还是另一次销售的部分退，所以确定的简单算法就是只要找到绝对值相同的那个退货就算全退，找不到就算部分退。复杂一点就要按日期顺序或者再跟货品数据联系起来确定。

楼主看看，这个
data a;
        input x y;
                if y>=0 then z=1;
                if y<0 then z=0;
                y=abs(y);
        cards;
        1 5.5
        1 4
        1 7
        1 -5.5
        1 -3
        1 9
        ;
run;

proc sort data=a;
  by y;
run;

data a;
retain s;
   set a;
   by y;
   if first.y and last.y then s+z;
   keep x y s;
run;

thx for sharing