程序是根据x的值选择对应的行数据，目的就是对于x值，选择两个零之间数值最大的所对应的行
n year month dayx
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}