急：请问怎么求最小的差异？

shiyiming

我有一个数据库：里面有大公司和小公司两种，现在要寻找与大公司相匹配的小公司。匹配的标准是二者是同一个行业的，而且二者之间资产的差异最小。我想做每个大公司的资产减去同行业小公司的资产 （即一个大公司对应多个小公司）。请问怎么找到与其匹配的小公司呢？急切请教各位高手。

shiyiming

数据库如下：
bigfirm：

firm_id industry  assets
1            1            13.2  
2            1             14
......
5            2             15
6            2             16
....................

small firms:

firm_id industry  assets
8            1            13
9           1             10
......
10            2             13
11            2             16
....................

我需要寻找在第二个数据库中，与第一个数据库最接近资产的公司,条件是industry 相同,并把最小的差异算出来写入数据库。
例如： firm 9  最接近 firm 1

生成一个库：
firm_id industry  assets   matching_firm matching_diff
1            1            13          8                  0.2
2            1             14         9                  4
......
5            2             15
6            2             16
....................


想了半天了，不知道怎么样用循环语句算出每个大公司及其匹配的小公司。
恳求大家帮助。谢谢！！

shiyiming

data bigfirms;
input firm_id industry assets@@;
cards;
1 1 13.2
2 1 14
5 2 15
6 2 16
;
run;
proc sort; by industry;

data smallfirms;
input firm_id industry assets@@;
cards;
8 1 13
9 1 10
10 2 13
11 2 16
;
run;


%macro match_firm (big=,small= ) ;
/*step 1: 检测大公司数量,并赋值给宏变量nbigfirm;*/

data count; set &big end=final;
n+1;
if final then call symput('nbigfirm',n);
run;
%put Number of big companies: &nbigfirm;

/*step 2: 依次取出bigfirm中每一个观测(对应于一个大公司)作为子库,
并分别与smallfirms库一对多横向合并*/
data result; run;   *对存放结果的数据集初始化;
%let n=1;   *为宏变量赋初值;

%do i=1 %to &nbigfirm;
    data a; set &big.;  if _n_=&n;  obs=_n_+1; source='yes';
    call symput("n",obs);
    run;   
        proc sort data=&small. out=b (rename=(firm_id=matching_firm  assets=assets2)); by industry; run;
        data c; merge a b;by industry; matching_diff =abs(assets-assets2); if  source='yes'; run;  
    proc sort; by firm_id  matching_diff ; run;
    data match; set c; by  firm_id matching_diff;  if first.firm_id; run;  proc print; run;
        data result; set result match; if  firm_id=. then delete; run; proc print; run;
       
%end;
%mend match_firm;

%match_firm(big=bigfirms,
             small=smallfirms);

shiyiming

多谢你的回复！我是个很菜的用户，要慢慢消化你的程序。Anyways, Thanks a lot!!!!!! 用完了会向你报告结果。