sas改编几行代码为宏代码

数据很简单！变量code，数据1  2  3   4   5  。。。 15；
将下列程序中所有以数字进行判断的均改成以宏的输入变量n进行判断。

1. %macro t;
   
2. %do i = 1 %to 5;
   
3. h(&i.)=lag&i.(code);
   
4. %end;
   
5. %mend;
   
6. 
   
7. data b;
   
8. set a;
   
9. array h(5);
   
10. %t;
    
11. m=sum(of h(*))/6;
    
12. run;
    
13. 
    
14. data c;
    
15. set b;
    
16. if _n_ <6 then m = .;
    
17. run;

复制代码

把上述语句改为一个宏, 要求输入一个数调用宏完成所有计算.

例如, 在 do i=1 to 5语句中, 5 应该改成n-1,  数字6应该是n.

很简单, 就是改成宏, 用n调用.

谢谢! MUA!

1. data a;
   
2. do i=1 to 15;
   
3. code=0.1*i;
   
4. output;
   
5. end;
   
6. drop i;
   
7. run;
   
8. 
   
9. 
   
10. %macro output(n=);
    
11. data b;
    
12. set a;
    
13. array h(%eval(&n-1));
    
14. %do i = 1 %to (&n-1);
    
15. h(&i.)=lag&i.(code);
    
16. %end;
    
17. if _n_ <&n then m = .;
    
18. else m=sum(of h(*))/&n;
    
19. run;
    
20. %mend;
    
21. 
    
22. %output(n=6);

复制代码

data a;
do i=1 to 15;
code=0.1*15;
output;
end;
drop i;
run;


%macro output(n=);
data b;
set a;
array h(5);
%do i = (&n-5) %to (&n-1);
h(&i.)=lag&i.(code);
%end;
if _n_ <6 then m = .;
else m=sum(of h(*))/6;
run;
%mend;

%output(n=6);

wang1839 发表于 2016-10-23 15:20
data a;
do i=1 to 15;
code=0.1*15;

大神,程序仍然无法运行..要把所有的数字都改成n.的代数式1就不用改了, 1是起点.

wang1839 发表于 2016-10-23 15:20
data a;
do i=1 to 15;
code=0.1*15;

我把代码改成这样, 用一个n调动宏才是我想要的.
可是无法运行, 大神你看看

1. data a;
   
2. do i=1 to 15;
   
3. code=0.1*15;
   
4. output;
   
5. end;
   
6. drop i;
   
7. run;
   
8. 
   
9. 
   
10. %macro output(n=);
    
11. data b;
    
12. set a;
    
13. array h(&n-1);
    
14. %do i = 1 %to (&n-1);
    
15. h(&i.)=lag&i.(code);
    
16. %end;
    
17. if _n_ <&n then m = .;
    
18. else m=sum(of h(*))/&n;
    
19. run;
    
20. %mend;
    
21. 
    
22. %output(n=6)

复制代码

wang1839 发表于 2016-10-23 14:53

谢谢!~~~~~~~~