search for: first_year_at_1

...X=1 that first specific year, it should only count once (X=1), not twice. The code that I have now is not complete and I would appreciate some advice here. This is the code: dat2 <- dat1 %>% group_by(country) %>% group_by(grp = cumsum(is.na(lag(Y))), add = TRUE) %>% mutate(first_year_at_1 = match(1, Y) * any(is.na(Y)) * any(tail(Y, 3) == 1L), X = {x <- integer(length(Y)) ; x[first_year_at_1] <- 1L ; x}) %>% ungroup() It doesn?t really generate what I described above. Any help here would be much appreciated. Below you can see my sample data with the desired o...

...c year, it should only count once (X=1), not twice. > > The code that I have now is not complete and I would appreciate some advice here. This is the code: > dat2 <- dat1 %>% > group_by(country) %>% > group_by(grp = cumsum(is.na(lag(Y))), add = TRUE) %>% > mutate(first_year_at_1 = match(1, Y) * any(is.na(Y)) * any(tail(Y, 3) == 1L), > X = {x <- integer(length(Y)) ; x[first_year_at_1] <- 1L ; x}) %>% > ungroup() > > It doesn?t really generate what I described above. Any help here would be much appreciated. > > Below you can see my sampl...

...count once (X=1), not twice. >> >> The code that I have now is not complete and I would appreciate some advice here. This is the code: >> dat2 <- dat1 %>% >> group_by(country) %>% >> group_by(grp = cumsum(is.na(lag(Y))), add = TRUE) %>% >> mutate(first_year_at_1 = match(1, Y) * any(is.na(Y)) * any(tail(Y, 3) == 1L), >> X = {x <- integer(length(Y)) ; x[first_year_at_1] <- 1L ; x}) %>% >> ungroup() >> >> It doesn?t really generate what I described above. Any help here would be much appreciated. >> >> Be...