大型数据集拆分与拼接

想完成如下问题
将序列s按照num拆分为4列，注意每列名字要按照num改变。
如图，而且希望拆分为4列后，再用另一种算法拼接回原来的1列。


这个算法的本意是先把序列拆分，然后求协方差矩阵，最后将协方差矩阵拼接回1列来统计相关系数的分布情况。
目前我自己是写了一个宏，先把数据集拆分为4个数据集，然后在merge在一起，反之亦然。但这种拆分方法面对大量数据时效率实在太低，比如长为1000*200的一串拆分为1000个长为200的串，需要2分钟。

我想问问sas有没有更快捷的拆分拼接方法，觉得悬赏分不够的话可以再加。

另附我目前再用的自编低效程序：
%macro cross1(set1,var,num,s,e,set2);
data temp&s.;
set &set1.;
if &num.=&s.;
s&s.=&var.;
keep trddt s&s.;
run;
%do i=(&s.+1) %to &e.;
data temp&i.;
set &set1.;
if &num.=&i.;
s&i.=&var.;
keep trddt s&i.;
run;
data temp&s.;
merge temp&s. temp&i.;
by trddt;
run;
%end;
data &set2.;
set temp&s.;
drop trddt;
run;
%mend cross1;

aleiiy 发表于 2015-2-11 09:18
没错，是应该再转置一次，完美地解决了本问题的前半部分。
请问从这个N串的阵列，如何再变回原来的一串的 ...

1. data a;
   
2. input num s;
   
3. cards;
   
4. 1        1
   
5. 1        2
   
6. 1        3
   
7. 1        4
   
8. 2        5
   
9. 2        6
   
10. 2        7
    
11. 2        8
    
12. 3        9
    
13. 3        10
    
14. 3        11
    
15. 3        12
    
16. 4        13
    
17. 4        14
    
18. 4        15
    
19. 4        16
    
20. ;
    
21. run;
    
22. proc transpose data=a out=b(drop=_name_) prefix=s;
    
23. var s;
    
24. by num;
    
25. run;
    
26. proc transpose data=b(drop=num) out=c(drop=_name_)prefix=s;run;
    
27. 
    
28. /************************************************************************/
    
29. proc transpose data=c out=d(drop=_name_)prefix=s;run;
    
30. data d;set d;num=_n_;run;
    
31. data e(rename=(ss=s));
    
32. set d;
    
33. array s(*) s1-s4;
    
34. do I=1 to dim (s);
    
35. ss=s(I);output;
    
36. end;
    
37. drop i s1-s4;
    
38. run;

复制代码

1. proc transpose data=a out=b(drop=_name_) prefix=s;
   
2. var s;
   
3. by num;
   
4. run;

复制代码

mingfeng07 发表于 2015-2-10 22:06

没写完哈

1. proc transpose data=b(drop=num) out=c(drop=_name_)prefix=s;run;

复制代码

proc transpose data=a out=b (drop=_name_) prefix=s ;
var s;
by num;
run;

sas9.4 发表于 2015-2-10 22:38
proc transpose data=a out=b (drop=_name_) prefix=s ;
var s;
by num;

1. proc transpose data=b(drop=num) out=c(drop=_name_)prefix=s;run;

复制代码

sushe1527 发表于 2015-2-10 22:44

没错，是应该再转置一次，完美地解决了本问题的前半部分。
请问从这个N串的阵列，如何再变回原来的一串的序列？

sushe1527 发表于 2015-2-10 17:17

太感谢了，完美解决问题！