帮我用SAS编个小程序好吗？

shiyiming

data tem;
input x r v;
cards;
1 0.164609053 193128
1 0 6090
1 0.164338537 15220
-1 0 29856
-1 -0.082034454 163960
1 -0.082101806 56046
1 0.164338537 35945
-1 0 14616
-1 -0.410172272 191044
1 0.082372323 7904
1 -0.329218107 27274
1 0.330305533 98514
-1 -0.24691358 99294
-1 -0.082508251 38140
-1 -0.165152766 18756
;
run;
data new;
set tem;
if _n_>1 & lag(x)^=x then do;
flag+1;
end;
run;
proc means data=new ;
var r v;
id x;
by flag;
output out=sumrc sum=sumr sumv;
run;
data sumrc;
set sumrc;
drop _type_ _freq_ flag;
run;
<!-- s:shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt=":shock:" title="Shocked" /><!-- s:shock: -->

shiyiming

谢谢各位热情相助~原来jiagangw已经给出了程序，因为是在第二页，开始没有看到，不好意思！jiagangw的程序给出的结果非常理想！只是又碰到了一个问题，得到了结果，我不知道怎么将数据转换成excel表格的形式！？

shiyiming

[quote=&quot;jiagangw&quot;:6ac31]data tem;
input x r v;
cards;
1 0.164609053 193128
1 0 6090
1 0.164338537 15220
-1 0 29856
-1 -0.082034454 163960
1 -0.082101806 56046
1 0.164338537 35945
-1 0 14616
-1 -0.410172272 191044
1 0.082372323 7904
1 -0.329218107 27274
1 0.330305533 98514
-1 -0.24691358 99294
-1 -0.082508251 38140
-1 -0.165152766 18756
;
run;

proc summary data=tem;
by x [size=200:6ac31]notsorted[/size:6ac31];
var r v;  
output out=out(drop=_type_) sum=;
run;

proc print data=out;
run;[/quote:6ac31]
又学了一招， by variable notsorted;

shiyiming

data tem;
input x r v;
cards;
1 0.164609053 193128
1 0 6090
1 0.164338537 15220
-1 0 29856
-1 -0.082034454 163960
1 -0.082101806 56046
1 0.164338537 35945
-1 0 14616
-1 -0.410172272 191044
1 0.082372323 7904
1 -0.329218107 27274
1 0.330305533 98514
-1 -0.24691358 99294
-1 -0.082508251 38140
-1 -0.165152766 18756
;
run;

proc summary data=tem;
by x notsorted;
var r v;
output out=out(drop=_type_) sum=;
run;

PROC EXPORT DATA= out
            OUTFILE= "D:\temp\out.xls"
            DBMS=EXCEL2000 REPLACE;
RUN;