关于r语言编程问题

ポ奉ポ奉餹

您好  我想用r语言编程实现由表一到表二的转化：

表一

SI  EI  Type

2   3     0

3   7     0

7   8     1

8   10   1

10 11   1

11 12   0

表二

SI  EI  Type

2   7     0

7   11   1

11  12   0

就是将Type列中相邻的相同状态合并，SI和EI的值相应发生变化，请高人指点，非常非常非常感谢！！！！

箫青

Maybe this will solve your problem:

1. TRAN=function(M) {
   
2.          n=nrow(M)
   
3.          p=ncol(M)
   
4.          S=(rep(numeric(0),p))
   
5.          i=1
   
6.          while(i<=n ) {
   
7.              k=i
   
8.              m=k
   
9.              while(M[k,p]==M[m,p]& m<=n) m=m+1
   
10.              S=rbind(S,c(min(M[k:(m-1),1]),max(M[k:(m-1),2]),M[k,3]))
    
11.              i=m
    
12. 
    
13.          }
    
14.          T=as.data.frame(S)
    
15.          colnames(T)=colnames(M)
    
16.          T
    
17.      }
    
18. M=read.table(header=TRUE,text='
    
19. SI  EI  Type
    
20. 2   3     0
    
21. 3   7     0
    
22. 7   8     1
    
23. 8   10   1
    
24. 10 11   1
    
25. 11 12   0
    
26. ')
    
27. TRAN(M)
    

复制代码