有一笔数据，希望做到每10笔取一个平均值，并输出到Excel中

如题，一笔数据为时间+数值，希望做到每10秒、30秒、1分钟就取一个平均值，并输出到Excel表格中~感谢帮忙


B资料 - 副本.xlsx (22.21 KB)

2017-12-17 21:14:42 上传

1. data a;
   
2. input Time $11. PM @ ;
   
3. cards;
   
4. 10:24:51 AM 4
   
5. 10:24:52 AM        5
   
6. 10:24:53 AM        6
   
7. 10:24:54 AM        6
   
8. 10:24:55 AM        5
   
9. 10:24:56 AM        5
   
10. 10:24:57 AM        4
    
11. 10:24:58 AM        4
    
12. 10:24:59 AM        4
    
13. 10:25:00 AM        4
    
14. 10:25:01 AM        4
    
15. 10:25:02 AM        3
    
16. 10:25:03 AM        3
    
17. 10:25:04 AM        3
    
18. 10:25:05 AM        3
    
19. 10:25:06 AM        3
    
20. ;
    
21. run;
    
22. 
    
23. data b;
    
24. set a;
    
25. tim=input(substr(time,1,8),time8.);
    
26. proc sort;by tim pm;
    
27. run;
    
28. proc sql noprint;
    
29. create table dimm as select min(tim) as min,max(tim) as max from b;
    
30. run;
    
31. 
    
32. data dumm;
    
33. set dimm;
    
34. n=ceil((max-min)/10);
    
35. call symput("n",n);
    
36. run;
    
37. 
    
38. data c;
    
39. set b;
    
40. by tim pm;
    
41. retain start;
    
42. if _n_=1 then start=tim;
    
43. do i=1 to &n.;
    
44. if start+10*(i-1)<=tim<=start+10*i then oo=i;
    
45. if start+30*(i-1)<=tim<=start+30*i then ooo=i;
    
46. if start+60*(i-1)<=tim<=start+60*i then oooo=i;
    
47. end;output;
    
48. run;
    
49. 
    
50. proc sql noprint;
    
51. create table want10 as select distinct oo,avg(pm) as pp from c group by oo;
    
52. create table want30 as select distinct ooo,avg(pm) as pp from c group by ooo;
    
53. create table want60 as select distinct oooo,avg(pm) as pp from c group by oooo;
    
54. run;

复制代码

这个还不简单，把数据看成一个列向量，写个条件语句就可以了，SQL、Matlab、R、stat等都可以实现这个功能！

hopezsh 发表于 2017-12-17 22:18
这个还不简单，把数据看成一个列向量，写个条件语句就可以了，SQL、Matlab、R、stat等都可以实现这个功能！

悬赏的原因就是希望能直接帮忙写好代码[shy]

j=0;
k=1;
sum_X=0;

for i=1:size(X,2)  %向量列数

    sum_X=sum_X+X(i);

    if i==10+60*j
       mean_X(k)=sum_X/i;  % 均值
       k=k+1;   
    else if i==30+60*j
       mean_X(k)=sum_X/i;
       k=k+1;  
    else if i==60+60*j
       mean_X(k)=sum_X/i;
       k=k+1;  
       j=j+1;
    else
    sum_X=sumX+X(i);
    end

end

mean_X

hopezsh 发表于 2017-12-18 08:47
j=0;
k=1;
sum_X=0;

您这个好像不是sas的代码吧[em19]

Matlab程序

hopezsh 发表于 2017-12-18 09:17
Matlab程序

抱歉，我在sas专版发帖是想拿到sas的[em19]

lovexialulu 发表于 2017-12-18 10:57

您好，可否劳烦将Excel导入部分也加进去，感激不尽

PROC IMPORT OUT= WORK.a
DATAFILE= "C:\Documents and Settings\Administrator\桌面\2008.xls"
DBMS=EXCEL REPLACE;
RANGE="Sheet1$";
GETNAMES=YES;
RUN;