如何找到序列的最小的大于等于o的数值？

code	t
1	-5
1	-4
1	-3
1	-2
1	-1
1	0
1	1
1	2
1	3
2	-5
2	-4
2	-3
2	2
2	3
2	4

生成的表格是：

code	t
1	0
2	2

其中t是code相同的那些数值中大于等于0的最小数。
向高手致敬！

1. proc sql;
   
2.         select code,min(t) as t from a where t>=0 group by code;
   
3. quit;

复制代码

如果code中没有大于等于0的数将导致code缺失，再补个code全量left join就可以了

最后剩下的有值的行就是要的结果
楼下用SAS的都比较高级 呵呵

proc sql;
create table b as
select code, min(t) as t
from a
where t >=0
group by code;
quit;

1. proc sort data=a;by code descending t;run;quit;
   
2. 
   
3. data c(drop=t rename=(s=t));
   
4.         set a;
   
5.         by code descending t;
   
6.         retain s;
   
7.         if first.code then s=.;
   
8.         if t>=0 then s=t;
   
9.         if last.code then output;
   
10. run;

复制代码

貌似解决了上面的问题

1. data raw;
   
2.         input code t;
   
3. datalines;
   
4. 1 -5
   
5. 1 -4
   
6. 1 -3
   
7. 1 -2
   
8. 1 -1
   
9. 1 0
   
10. 1 1
    
11. 1 2
    
12. 1 3
    
13. 2 -5
    
14. 2 -4
    
15. 2 -3
    
16. 2 2
    
17. 2 3
    
18. 2 4
    
19. 3 -5
    
20. 3 -4
    
21. ;
    
22. proc sort data=raw out=out;
    
23.         by code t;
    
24. run;
    
25. data out;
    
26.         set raw(where=(t ge 0));
    
27.         by code;
    
28.         if first.code then output;
    
29. run;

复制代码

lz, 请出功能强大的 sql,  貌似杀鸡用牛刀呀，下面 俺也来 凑个热闹，不用 sql 似乎也能 达到目的，程序如下：

data a;
input code t;
cards;
code t
1 -5
1 -4
1 -3
1 -2
1 -1
1 0
1 1
1 2
1 3
2 -5
2 -4
2 -3
2 2
2 3
2 4
;
data  b;
set a;
if t<0 then delete;
proc means data= b min;
var t;
class code;
run;

以下是运行结果，不知是否为 LZ所需：

                                         The SAS System           09:49 Friday, July 30, 2010  14
                                       The MEANS Procedure
                                      Analysis Variable : t
                                                 N
                                       code    Obs         Minimum
                               -----------------------------------
                                          1      4               0
                                          2      3       2.0000000
                               -----------------------------------

rdzr 发表于 2010-7-30 10:38
lz, 请出功能强大的 sql,  貌似杀鸡用牛刀呀，下面 俺也来 凑个热闹，不用 sql 似乎也能 达到目的，程序如下：

data a;
input code t;
cards;
code t
1 -5
1 -4
1 -3
1 -2
1 -1
1 0
1 1
1 2
1 3
2 -5
2 -4
2 -3
2 2
2 3
2 4
;
data  b;
set a;
if t

The program can be simplified as,
data a;
input code t;
cards;
code t
1 -5
1 -4
1 -3
1 -2
1 -1
1 0
1 1
1 2
1 3
2 -5
2 -4
2 -3
2 2
2 3
2 4
;
/*data  b;*/
/*set a;*/
/*if t<0 then delete;*/
proc means data= a min;
class code;
var t;
output out=b min=;
where  t>=0;
run;

8# bobguy

学习了，编程效率确有提高，谢谢！

今天的悬赏怎么降下来了？