程序是根据x的值选择对应的行数据，目的就是对于x值，选择两个零之间数值最大的所对应的行
  n year month day  x
1 1    1     2       1    0
2 2    1     3       3    2
3 3    2     2       2    5
4 4    2     1       4     1
5 5    4     4       5    0
6 6    4     6       6    2
7 7    4     4       7    1
8 8    6     3       2    0
上面的数据经选择过后应该是选择第三行和第六行，然后再将选择的行放入新的数据框。
下边是编的程序，问题主要出在最后t<-NULL上，不知道如何修改，还请高手们指点下，谢谢！
year=c(1,1,2,2,4,4,4,6)
month=c(2,3,2,1,4,6,4,3)
day=c(1,3,2,4,5,6,7,2)
x=c(0,2,5,1,0,2,1,0)
n<-1:8
p=data.frame(n,year,month,day,x)
t<-NULL
m<-NULL
for(k in 1:7)
{if(subset(p$x,p$n==k)==0&&subset(p$x,p$n==k+1)!=0)
    t<-rbind(t,subset(p,p$n==k+1))
else if(subset(p$x,p$n==k)!=0&&subset(p$x,p$n==k+1)!=0)
    t<-rbind(t,subset(p,p$n==k+1))
else if(subset(p$x,p$n==k)!=0&&subset(p$x,p$n==k+1)==0)  
    m<-rbind(m,subset(t,x==max(t$x)))
    t<-NULL
else break}