SAS新手竭诚求教代码编写(2)

续前一个帖子“SAS新手竭诚求教代码编写(1)" http://www.pinggu.org/bbs/thread-950347-1-1.html, 另外两个问题还是和macro有关，100论坛币悬赏解决：Q4. 完成以下macro.

%macroprocessyear(Inputds=StudentScore, Year=91,Outputds=Year_out);

%mend;

Year_out should have the following variables:
Year- Year specified in the input.
StudentHighScore- “StudentID “of the student with thehighest score for that year.
YearAvg- Average for the input year.

Q5. Write a SAS macro to create individual student files foreach student/year combination.




谢谢大家！

1. /*Q4*/
   
2. %macro processyear(Inputds,Year,Outputds);
   
3.         proc sql;
   
4.                 create table &Outputds as
   
5.                         select
   
6.                                 Year
   
7.                                 ,StudentID
   
8.                                 ,Score
   
9.                                 ,Avg(Score) as YearAvg
   
10.                         from &Inputds
    
11.                         where year=&year
    
12.                         group by
    
13.                                 Year
    
14.                         order by
    
15.                                 Score desc
    
16.                 ;
    
17.         quit;
    
18.         data &Outputds;
    
19.                 set &Outputds;
    
20.                 by descending Score;
    
21.                 if _N_=1;
    
22.                 rename StudentID=StudentHighScore;
    
23.                 drop Score;
    
24.         run;
    
25. %mend processyear;
    
26. %processyear(StudentScore,95,Year_Out);
    
27. 
    
28. /*Q5*/
    
29. %MACRO split;
    
30.         proc sort data=StudentScore;by StudentId year;run;quit;
    
31.         data t1;
    
32.                 set StudentScore;
    
33.                 by StudentId year;
    
34.                 Grp=compress(StudentID||'_'||year);
    
35.                 if first.year;
    
36.                 keep StudentID year Grp;
    
37.         run;
    
38.         proc sql;
    
39.                 select Grp into:output separated by '|' from t1;
    
40.         quit;
    
41.         %let cnt=%eval(%sysfunc(count(&output,|))+1);
    
42.         %put &output &cnt;
    
43.        
    
44.         data
    
45.                 %do i=1 %to &cnt;
    
46.                         %scan(&output,&i,|)
    
47.                 %end;
    
48.         ;
    
49.                 set StudentScore;
    
50.                 %do i=1 %to &cnt;
    
51.                         %if &i>=2 %then %do;else%end;
    
52.                         if StudentID="%scan(%scan(&output,&i,|),1,_)" and year=%scan(%scan(&output,&i,|),2,_) then output %scan(&output,&i,|);
    
53.                 %end;
    
54. 
    
55.         ;
    
56.         run;
    
57. 
    
58. %MEND split;
    
59. %SPLIT;

复制代码

不懂啊，呵呵

3# soporaeternus
请问这个代码是如何嵌到网页上的？

1. 点回复窗口上的"<>"就可以了（在笑脸的左边）

复制代码

高手们能否给我解释一下这位高手的code意思？不是特别理解。谢谢！

2# soporaeternus

前天我发帖悬赏了一个SAS macro的编写，有个牛人迅速编出，其他各路牛人纷纷赞同，学术奖章纷至沓来，我也设此为最佳答案，可是Q4,Q5这两个macro编写对于macro新手的我还是不太理解，能否请其他高手翻译一下这位高手的编程思路？ 我的原帖问题详见如下引用部分：

yellowriver 发表于 2010-11-2 14:30
续前一个帖子“SAS新手竭诚求教代码编写(1)" http://www.pinggu.org/bbs/thread-950347-1-1.html, 另外两个问题还是和macro有关，100论坛币悬赏解决：
Q4. 完成以下macro.

%macroprocessyear(Inputds=StudentScore, Year=91,Outputds=Year_out);

%mend;

Year_out should have the following variables:
Year- Year specified in the input.
StudentHighScore- “StudentID “of the student with thehighest score for that year.
YearAvg- Average for the input year.

Q5. Write a SAS macro to create individual student files foreach student/year combination.




谢谢大家！