SAS宏循环程序

天开

我想把数据集a里所有记录的变量n411到n4110的所有数据，等于1或2的数据变为1，等于3或4的数据变为2，缺失值的不变，还是缺失值。

这个宏程序程序应该怎么写。

数据集a形如下：

n411 n412 ....... n4110

1 2 ....... 3

3 . ....... 2

..

..

..

..

3 2 ....... 1

我是这么写的，但变换不了,不知道错在哪里。

%macro xx;

data xx;

set a;

%let y=1;

%do %while (&y<=10);

%if n41&y=2 %then n41&y=1;

%if n41&y=3 %then n41&y=2;

%if n41&y=4 %then n41&y=2;

%let y=%eval(&y+1);

%end;

keep n411-n419 n4110;

run;

%mend;

%xx

请大家帮忙以及修改下我这个程序。谢谢。

losttemple

你用数组多方便

天开

现在还不会数组，数组怎么做啊？

不过今天做出来了。

这样的程序能行：

%macro xx;

data xx;

set a;

%do y=1 %to 10;

if n41&y=2 then n41&y=1;

if n41&y=3 or n41&y=4 then n41&y=2;

%end;

run;

%mend;

%xx

那这个在宏程序里为什么不用 %if %then 呢？

用与不用%有什么区别？

请大家指教。

谢谢。

王笑权

关注

losttemple

%if是宏语句，if是sas代码

王笑权

大家都很谦虚惟有我胆子大不怕错误不怕被拍砖我来搓一把同时急切希望好心的朋友将你的有关sas宏

数组方面的资料发个我 wxq1638@yahoo.com.cn 给你作揖了。

言归正传 1 将以下数据存盘准备调用

1 77 85 2 88 74 3 89 67 4 88 92 5 67 83 6 89 90 7 83 74

8 94 97 9 89 96 10 55 81 11 88 83 12 91 94 13 85 89 14 70 78

15 90 96 16 90 93 17 94 81 18 67 81 19 87 93 20 83 91

21 88 88 22 93 79 23 98 98 24 77 88 25 99 100

2 编辑SAS相关程序

%macro xx(y);

data a;

infile 'd:\sj\ghx3.txt';

input x1 x2 x3@@;

%do y=1 %to &y;

z&y=x&y;

if z&y>=90 then z&y=1;

else if z&y<90 & z&y>=70 then z&y=2;

else z&y=.;

%end;

%mend;

%xx(3);

title "朋友！你向灾区作贡献了吗？";

proc print;var z1-z3;run;

3 结果

朋友！你向灾区作贡献了吗？ 2008年05月17日星期六下午10时42分32秒 1

Obs z1 z2 z3

1 . 2 2

2 . 2 2

3 . 2 .

4 . 2 1

5 . . 2

6 . 2 1

7 . 2 2

8 . 1 1

9 . 2 1

10 . . 2

11 . 2 2

12 . 1 1

13 . 2 2

14 . 2 2

15 . 1 1

16 . 1 1

17 . 1 2

18 . . 2

19 . 2 1

20 . 2 1

21 . 2 2

22 . 1 2

23 . 1 1

24 . 2 2

25 . 1 1

lwien007

用数组作的

<br />
data a;<br />
    input t1-t10;<br />
    datalines;<br />
1 2 3 2 1 4 3 2 4 2 <br />
2 1 1 4 3 2 4 2 2 .<br />
2 4 2 2 . 2 1 1 4 3<br />
2 1 3 1 4 2 1 2 3 1<br />
2 1 2 3 2 1 . 2 1 2<br />
;<br />
data b;<br />
    set a;<br />
    array s _numeric_;<br />
    do over s;<br />
        if s in(1,2) then s=1;<br />
        if s in(3,4) then s=2;<br />
    end;<br />
run;<br />
<br />

lwien007

这个是用宏做的

<br />
data a;<br />
    input t1-t10;<br />
    datalines;<br />
1 2 3 2 1 4 3 2 4 2 <br />
2 1 1 4 3 2 4 2 2 .<br />
2 4 2 2 . 2 1 1 4 3<br />
2 1 3 1 4 2 1 2 3 1<br />
2 1 2 3 2 1 . 2 1 2<br />
;<br />
%macro tmp;<br />
    data c;<br />
        set  a;<br />
        %do i=1 %to 10;<br />
            if t&i in(1,2) then t&i=1;<br />
            if t&i in(3,4) then t&i=2;<br />
        %end;<br />
    run;<br />
%mend tmp;<br />
<br />
%tmp<br />

王笑权

[quote]引用第6楼lwien007于2008-05-19 10:43发表的“”:

用数组作的

<br />
data a;<br />
    input t1-t10;<br />
    datalines;<br />
.......[/quote]<br />
篡改如下：<br />
data a;<br />
infile 'd:\sj\天开1.txt';<br />
   input t1-t10@@;<br />
   array s _numeric_;<br />
   do over s;<br />
       if s in(1,2) then s=1;<br />
       if s in(3,4) then s=2;<br />
   end;<br />
   proc print;<br />
run;

王笑权

[quote]引用第7楼lwien007于2008-05-19 10:47发表的“”:

这个是用宏做的

<br />
data a;<br />
    input t1-t10;<br />
    datalines;<br />
.......[/quote]<br />
篡改如下：<br />
%macro tmp(n);<br />
data a;<br />
infile 'd:\sj\天开1.txt';<br />
   input t1-t10@@;<br />
       %do i=1 %to &n;<br />
           if t&i in(1,2) then t&i=1;<br />
           if t&i in(3,4) then t&i=2;<br />
       %end;<br />
%mend;<br />
%tmp(10);<br />
proc print;<br />
run;<br />
效果同前

路斯菲尓

崇拜啊，很郁闷，我是营养专业的，在现场调查这块需要统计，但是我们当初统计教的很少，好多书上讲的又不详细！只能经常来看大家发的帖子，o(∩_∩)o...

王笑权

[quote]引用第10楼路斯菲尓于2008-05-21 20:53发表的“”:

崇拜啊，很郁闷，我是营养专业的，在现场调查这块需要统计，但是我们当初统计教的很少，好多书上讲的又不详细！只能经常来看大家发的帖子，o(∩_∩)o...[/quote]

我想，若有困难，论坛上的朋友们都会帮助你的。

天开

谢谢大家的详细解疑。谢谢！

用宏，这个方法掌握了。

这个用数组做，这个是数据集里所有的变量都变了，要是仅针对其中的部分变量，如 t1-t10，在这种情况下用数组怎么做呢？

lwien007

[quote]引用第12楼天开于2008-05-22 17:37发表的“”:

谢谢大家的详细解疑。谢谢！

用宏，这个方法掌握了。

这个用数组做，这个是数据集里所有的变量都变了，要是仅针对其中的部分变量，如 t1-t10，在这种情况下用数组怎么做呢？[/quote]

data a;<br />
   input t1-t10;<br />
   datalines;<br />
1 2 3 2 1 4 3 2 4 2 <br />
2 1 1 4 3 2 4 2 2 .<br />
2 4 2 2 . 2 1 1 4 3<br />
2 1 3 1 4 2 1 2 3 1<br />
2 1 2 3 2 1 . 2 1 2<br />
;<br />
data b;<br />
   set a;<br />
   array s t1-t10;<br />
   do over s;<br />
       if s in(1,2) then s=1;<br />
       if s in(3,4) then s=2;<br />
end;

指定变量为t1-t10就可以了，

天开

哦，谢谢。我试试。

天开

搞成了，谢谢大家。