以下程序看不明白，请高人指点

Obs    famid    year    faminc
1       1       96      40000
2       1       97      40500
3       1       98      41000
4       2       96      45000
5       2       97      45400
6       2       98      45800
7       3       96      75000
8       3       97      76000
9       3       98      77000

data wide_array;
  set long_sort;
  by famid;
  retain faminc96-faminc98;
  array Afaminc(96:98) faminc96-faminc98;
  if first.famid then do;
    do i = 96 to 98;
      Afaminc = .;
    end;
  end;
  Afaminc(year) = faminc; /*looping across values in the variable year*/
  if last.famid then output; /* outputs only the last obs in a family*/
  drop year faminc i;
run;
proc print data=wide_array noobs;
run;

famid    faminc96    faminc97    faminc98
  1        40000       40500       41000
  2        45000       45400       45800
  3        75000       76000       77000

data wide_array;
  set long_sort;
  by famid;/*排序 数据集wide_array 按照FAMID*/
  retain faminc96-faminc98;/*初始化三个变量*/
  array Afaminc(96:98) faminc96-faminc98;/*定义一个数组，包括了三个变量名*/
  if first.famid then do;/*如果按照FAMID分组排序，每一组的第一个观测对象，对这个观测对象的faminc96-faminc98三个变量赋予缺失值，是通过数组的循环实现的*/
    do i = 96 to 98;
      Afaminc = .;/*改成Afaminc(i) = .;*/
    end;
  end;
  Afaminc(year) = faminc; /*对faminc96-98三个变量赋值为FAMINC的值，这个时候有些观测对象的这三个变量值为缺失值，正好类似一个对角矩阵*/
  if last.famid then output; /*输出每一个组的最后一个观测，因为最后一个观测是全的，没有缺失，楼主可以先吧drop year faminc i 这句话去掉看看结果，然后再去掉这行，看看*/
  drop year faminc i;
run;
proc print data=wide_array noobs;
run;

data wide_array;
  set long_sort;
  by famid;
  retain faminc96-faminc98;
  array Afaminc(96:98) faminc96-faminc98;
  if first.famid then do;
    do i = 96 to 98;
      Afaminc = .;
    end;
  end;
  Afaminc(year) = faminc; /*looping across values in the variable year*/
  if last.famid then output; /* outputs only the last obs in a family*/
  drop year faminc i;
run;
proc print data=wide_array noobs;
run;



改一个地方
就是
Afaminc = .;
改成
Afaminc (i)= .;

楼上虽是SPSS版主 实则对SAS也很精通 且很热心 学习了

版主就是版主，厉害。

ladyw 发表于 2010-4-21 22:29
Obs    famid    year    faminc
1       1       96      40000
2       1       97      40500
3       1       98      41000
4       2       96      45000
5       2       97      45400
6       2       98      45800
7       3       96      75000
8       3       97      76000
9       3       98      77000

data wide_array;
  set long_sort;
  by famid;
  retain faminc96-faminc98;
  array Afaminc(96:98) faminc96-faminc98;
  if first.famid then do;
    do i = 96 to 98;
      Afaminc = .;
    end;
  end;
  Afaminc(year) = faminc; /*looping across values in the variable year*/
  if last.famid then output; /* outputs only the last obs in a family*/
  drop year faminc i;
run;
proc print data=wide_array noobs;
run;

famid    faminc96    faminc97    faminc98
  1        40000       40500       41000
  2        45000       45400       45800
  3        75000       76000       77000

This is a good example to use the proc transpose rather than array in a data step.

The proc transpose doesn't need any "maintenance" at all besides easiness to understand.

data tmp;
input famid    year    faminc ;
cards;
1       96      40000
1       97      40500
1       98      41000
2       96      45000
2       97      45400
2       98      45800
3       96      75000
3       97      76000
3       98      77000
;


proc transpose data=tmp out=tmp2(drop=_name_)  prefix=faminc_;
by  famid;
id year;
var faminc;
run;

proc print; run;

bobguy 和斑竹的答案，运行通过。遗憾的是，我不知道如何给两个解答同时加分。

谢谢bobguy !