[R] conditional increase by increment

[penguins]

I am trying to assign increasing trip numbers to a binary variable ("land";
1=home and 0=away) where a string of 1's shouldn't increment the trip_no
more than once. 

For example; based on 
land<-c(0,0,0,0,1,1,1,0,0,0,1,1,0,0,0,0)
the "trip_no" sequence produced should be   1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3

This is as far as I can get but Im stumped. In addition I need it to work on
data where the land variable can start on "0" or "1" for trip_no=1. Any help
would be hugely appreciated:

land<-c(0,0,0,0,1,1,1,0,0,0,1,1,0,0,0,0)
trip_no <- rep(0, length(land))
gg<-cbind(land,trip_no)

increment <- function(x){
  eval.parent(substitute(x <- x + 1))
}

    for(i in length(gg)){
      if(gg$land[[i]]==1) {
          gg$trip_no<-increment(trip_no[i])
        }
     }

--
View this message in context: http://r.789695.n4.nabble.com/conditional-increase-by-increment-tp4636910.html
Sent from the R help mailing list archive at Nabble.com.