SAS程序请教

liuliuqiu 发表于 2014-6-27 16:25
老师，实在不好意思，结果不一致可能是因为我上例中hs只含有一个值，如果说hs不止有一种值呢？例如
hs   ...

我也是刚在学sas，那hs是什么含义？需要根据hs的不同做什么处理吗？

FB_FLORA 发表于 2014-6-27 16:35
我也是刚在学sas，那hs是什么含义？需要根据hs的不同做什么处理吗？

对，要根据hs的不同做处理。例如说：
hs    code    year1     year2  number
1     1234    2004    2004     0
1     2345    2004    2004     0
1     3456    2004    2004     0
1     3456    2005    2004     2
1     4567    2004    2004     0
1     4567    2005    2004     2
1     5678    2004    2004    0
1     5678    2005    2004    2
1     5678    2006    2004     4
2     2478    2005     2005   0
2     1234    2005    2005    0
2     1234    2006    2005    1
多谢了

liuliuqiu 发表于 2014-6-27 16:45
对，要根据hs的不同做处理。例如说：
hs    code    year1     year2  number
1     1234    2004    2 ...

1. data  test;
   
2. input hs code year1 year2;
   
3. cards;
   
4. 1 1234 2004 2004
   
5. 1 2345 2004 2004
   
6. 1 3456 2004 2004
   
7. 1 3456 2005 2004
   
8. 1 4567 2004 2004
   
9. 1 4567 2005 2004
   
10. 1 5678 2004 2004
    
11. 1 5678 2005 2004
    
12. 1 5678 2006 2004
    
13. 2 1234 2004 2004
    
14. 2 2345 2004 2004
    
15. 2 3456 2004 2004
    
16. 2 3456 2005 2004
    
17. 2 4567 2004 2004
    
18. 2 4567 2005 2004
    
19. 2 5678 2004 2004
    
20. 2 5678 2005 2004
    
21. 2 5678 2006 2004
    
22. ;
    
23. run;
    
24. 
    
25. 
    
26. proc sort data=test;
    
27. by hs code;
    
28. run;
    
29. 
    
30. data test1;
    
31.   set test;
    
32.   by hs code;
    
33.   if first.hs then n=0;
    
34.   if first.code then n+1;
    
35.   else n+0;
    
36. run;
    
37. 
    
38. proc sort data=test1;
    
39. by hs year1 code;
    
40. run;
    
41. 
    
42. data want;
    
43. set test1;
    
44. by hs year1;
    
45. if first.year1 then do;
    
46.   retain number;
    
47.   if year1=year2 then number=0;
    
48.   else number=n-1;
    
49. end;
    
50. drop n;
    
51. run;
    
52. 
    
53. proc sort data=want;
    
54. by hs code year1;
    
55. run;

复制代码

看看是不是你想要的

liuliuqiu 发表于 2014-6-27 16:23
老师，实在不好意思，我再请教一个问题，如果说hs不止有一种值呢？例如
hs    code    year1   year2    ...

从你的表述来看 只需要对不同的产品进行计算而已 你看看程序中的例子

liuliuqiu 发表于 2014-6-27 16:45
对，要根据hs的不同做处理。例如说：
hs    code    year1     year2  number
1     1234    2004    2 ...

你试试这样行吗？
data sample;
input hs code year1 year2;
unicode=strip(hs)||"-"||strip(code);
datalines;
1 1234 2004 2004
1 2345 2004 2004
1 3456 2004 2004
1 3456 2005 2004
1 4567 2004 2004
1 4567 2005 2004
1 5678 2004 2004
1 5678 2005 2004
1 5678 2006 2004
2 2478 2005 2005
2 1234 2005 2005
2 1234 2006 2005
;

proc sql;
create table sam1 as
select  hs , code , max(year1) as year
from sample
group by hs , code
order by hs , code
;
create table sam2 as
select hs , year, count(distinct code) as num
from sam1
group by hs , year
order by hs , year
;
quit;
data sam21;
set sam2;
by hs year;
order=_n_;
lorder=_n_+1;
run;
data sam22;
merge sam21(in=a drop=lorder) sam21(drop=order year rename=(lorder=order num=lastnum));
by hs order;
retain cumnum;
if a;
if missing(lastnum) then lastnum=0;
if first.hs then cumnum=0;
cumnum+lastnum;
run;
proc sql;
create table sample1 as
select *
from sample a , sam22 b
where a.year1=b.year and a.hs=b.hs
;
quit;
data sample2;
set sample1;
if year1=year2 then number=0;
else if year1>year2 then number=cumnum;
run;
proc sort data=sample2;
by hs code;
run;

FB_FLORA 发表于 2014-6-27 16:59
你试试这样行吗？
data sample;
input hs code year1 year2;

感谢感谢，已经成功做出来了，多谢了