取出众多变量中大于0的最小值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如有8个字段：

x1	x2	x3	x4	x5	x6	x7	x8
12	0	3	6	8	0	23	0

想生成一个新的字段y: 新字段的值是x1-x8中大于0的最小值，即y=3

x1	x2	x3	x4	x5	x6	x7	x8	y
12	0	3	6	8	0	23	0	3

请问大侠如何在DATA步中实现？

扫码加我 拉你入群

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

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

分享1 收藏0 回帖

关键词：多变量 最小值 data步 Data 如何

data kk;
set kk;
m=1000000;
if m>x1 and  x1>0 then m=x1;
if m>x2 and  x2>0 then m=x2;
if m>x3 and  x3>0 then m=x3;
if m>x4 and  x4>0 then m=x4;
if m>x5 and  x5>0 then m=x5;
if m>x6 and  x6>0 then m=x6;
if m>x7 and  x7>0 then m=x7;
if m>x8 and  x8>0 then m=x8;
run;

See example below.

data t1;
array x(*) x1-x8 (0,-1,4,3,5,6,7,8);
y=1e308;
do i=1 to dim (x);
   if 0<x[i]<y then y=x[i];
end;
run;

proc print;run;

data test;
input X1 X2 X3 X4 X5 X6 X7 X8 @@;
cards;
1        0        15        7        3        4        -2        -3
3        5        7        -1        2        -6        0        4
7        4        6        -6        3        5        0        7
15        12        4        -4        -5        0        3        8
1        3        5        7        -5        0        5        7
6        4        8        -7        0        2        5        4
;

data test1 (drop = i Z1-Z8);
        array X[8] X1-X8;
        array Z[8] Z1-Z8;
        set test;
        do i=1 to 8;
                if X[i] gt 0 then Z[i]=X[i];
                        else Z[i]='';
        end;
        Y=min (of Z1-Z8);
run;

我觉得这样可以实现更多行数据的同时运算，您看看是否符合要求，呵呵~
欢迎交流哈

bobguy 发表于 2012-5-24 09:31
See example below.

data t1;

很显然，您的这个逻辑判别：
do i=1 to dim (x);
   if 0<x<y then y=x;
end;
写得非常巧妙，赞！

楼上正解

1. data aa;
   
2.         input x1-x8 @@;
   
3. cards;
   
4. 12 0 3 6 8 0 23 0
   
5. ;
   
6. run;
   
7. 
   
8. data aa;
   
9.         set aa;
   
10. 
    
11.         array vl(*) x1-x8;
    
12.         y=.;
    
13.         do i=1 to dim(vl);
    
14.                 if 0<vl(i) then y=min(y,vl(i));
    
15.         end;
    
16. 
    
17.         put y=;
    
18. run;

复制代码

学习