问个问题：如何将数据集a的数据，逐行地，转给另一个只有一列的数据集b？

问大家一个问题：如何将数据集a的数据，逐行地转给另一个只有一列的数据集b？

比如：
data_a
effect_1 effect_2 effect_3
15  7   11
19  10  21
19  18  24
3   8   7

一行一行地，依次转给data_b(只有一列)：
data_b
effects
15
7
11
19
10
21
19
18
24
3
8
7

对于data_a，在其列数(即effect_x)不确定的情况下，该怎么写代码呢？

谢谢！

data a;
input effect_1 effect_2 effect_3;
cards;
15  7   11
19  10  21
19  18  24
3   8   7
;
run;
proc iml;
use a;
read all into a;
b=shape(a,nrow(a)*ncol(a),1);
create  b from b[colname='effects'];
append from b;
quit;

data a;
input effect_1 effect_2 effect_3;
cards;
15  7   11
19  10  21
19  18  24
3   8   7
;
run;
proc iml;
use a;
read all into a;
b=shape(a,nrow(a)*ncol(a),1);
create  b from b[colname='effects'];
append from b;
quit;

ziyenano 发表于 2012-7-7 23:47
data a;
input effect_1 effect_2 effect_3;
cards;

不错！非常感谢。

lbnjin 发表于 2012-7-8 07:41
不错！非常感谢。

额，说好的论坛币呢~

1. data result;
   
2. set a;
   
3. array arr(*) _numeric_;
   
4. do i=1 to dim(arr);
   
5. x=arr(i);
   
6. output;
   
7. end;
   
8. drop i;
   
9. run;

复制代码

ziyenano 发表于 2012-7-8 10:25
额，说好的论坛币呢~

这个...该怎么发金币呢？