如何对多个数据集执行相同的 SAS 过程

How to perform same SAS procedure over multiple datasets

我整理了一个 proc IML 代码,允许从特定数据集中提取数据 - 存储在工作目录中 - 并执行一个简单的方程式。然后将结果存储在新数据集中。

proc iml  ;
use B1;
read all var _ALL_  into B1;
close B1;

g= B1[1,1];
ExG = B1[3,1];
Res = B1[5,1];
E =2;  
R =3;  

test =  g/(g+(ExG/E)+(Res/(R*E)));

print g ExG res test  [format = 10.6];
create try var {g ExG res test};
append;
close try;

run; quit;

我现在想将此过程应用于存储在我的 SAS 工作文件夹中的多个数据集,并将合并的结果追加到新文件夹中。数据集编码为B1、B2、B3…… 我认为,需要一个具有循环功能的 SAS 宏,但我在这方面的知识非常有限。如果有任何帮助,我将不胜感激。

确实,您可以像这样使用宏函数轻松完成此操作:

1) 设置一个空数据集:

data result;
run;

2) 创建一个宏函数来处理您的数据集。 VAR 宏变量将是列表 B1、B2、B3、B4 中数据集的数量。

%macro processDatasets(var);

proc iml  ;
use B&var;
read all var _ALL_  into B&var;
close B&var;
g=  B&var.[1,1];
ExG = B&var.[3,1];
Res = B&var.[5,1];
E =2;  
R =3;  

您在此处通过调用 symputx("g", B&var.[1,1], 'G'); 来存储值。 然后将全局宏变量添加到数据集中 to_store.

call symputx("g", B&var.[1,1], 'G');.
....

test =  g/(g+(ExG/E)+(Res/(R*E)));
print g ExG res test  [format = 10.6];
create try var {g ExG res test};
append;
close try;
run; quit;

下面是如何将宏变量存储到当前数据集中的方法。

data to_store;
g=call symget("g");
ExG=call symget("ExG");
...
run;

3) 以下是将多个数据集连接成一个结果的提示。

data result;
    set result to_store;
run;

%mend processDataset;

4) 您可以多次调用该函数:

%processDataset(1);
%processDataset(2);
%processDataset(3);
...

5) 或者您可以遍历数字列表:

%macro processVarList;
%let var_list=1|2|3|4;
    %let k=1;
    %do %while (%qscan(&var_list, &k,|) ne );
        %let VAR = %scan(&var_list, &k,|);
        %processDataset(&var);
        %let k = %eval(&k + 1);
    %end;
%mend processVarList;
%processVarList;

6) 您可以根据要存储在结果数据集中的内容调整此代码。 我没有测试代码,但想法就在那里。 我想您必须将所有变量 G、ExG、Res、E、R 存储到一个数据集中,以便合并到最终结果数据集中。

最后,您将所有值都放入结果数据集中。