求助，数据的完全组合

各位大神，小女子求助中。
论文需要对数据进行完全组合（？？？不知道专业怎么称呼）
就是比如 有ABCD三个，组合后变成 AB ，AC，AD, BC,BD, CD
因为数据量很大，没办法手动。
导师说SAS可以处理，
可以自己安装完SAS后默默研究了几天，还是不得要领。
拜托各位大神帮帮忙。
谢过。
附上数据。 组合0206.rar (813.72 KB) 本附件包括：

• 组合0206.xlsx

2015-2-6 13:40:46 上传

拜托拜托

说明：第一列是公司代码，第二列是产业年份代码。
需求: 同产业同年份的公司代码进行上述完全组合。（如果有10个，组合后变成45个）

拜托拜托。坐等。

bhfly 发表于 2015-2-6 14:37
大神。可以帮忙写一下大概的程式吗？？？感激不尽！

数据导入过程省略，直接用sql过程的话，可以这样写：
proc sql noprint;
    create table newdata as
      select distinct compress(a.code||b.indyear) as newcode
        from source as b, source as a
    ;
quit;

newcode即是你需要的结果

用sql过程实现起来比较容易

学名叫笛卡尔乘积

大神。可以帮忙写一下大概的程式吗？？？感激不尽！

看了下你的数据，比较大，用sql过程估计比较慢，用format可能会快一些

已趴。。。

使用data步，结合format，可以参考下面的过程：
ata source;
  set source end = eof;
  obs = _N_;
  if eof then call symputx('num', _N_);
run;


data format;
set source;
length start end label $50;
fmtname = "idf";
type = "N";
length = 32;
start = obs;
end = obs;
label = trim(left(indyear));
output;
run;

proc format cntlin=format;
run;

data newdata;
    set source;
    do i = 1 to &num.;
          newcode = compress(code||put(i, idf.));
          output;
        end;
        keep newcode;
run;

你可以对比一下那种效率高

我试试~~谢谢你！

wpfwxn 发表于 2015-2-6 14:56
使用data步，结合format，可以参考下面的过程：
ata source;
  set source end = eof;

这个方法看不懂。。。能再详细一点吗？
对不起。你面对的真的是一只很菜的菜鸟。。。