全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › SAS专版
以下程序看不明白，请高人指点
ladyw
2066 7
2010-04-21
悬赏 3 个论坛币 已解决
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

最佳答案

crackman 查看完整内容

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 = . ...
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
crackman
2010-4-21 22:29:22
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;
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

crackman
2010-4-21 23:04:16
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)= .;
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

醉_清风
2010-4-22 17:15:30
楼上虽是SPSS版主 实则对SAS也很精通 且很热心 学习了
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

tinyhuhu
2010-4-22 17:23:15
版主就是版主，厉害。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

bobguy
2010-4-23 06:37:33
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;
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群