Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- df%>%mutate(calculation=ifelse(lag(signal)==1,
- value,
- NA))
- set.seed(123)
- df<-tibble(date=today()+0:10,
- signal=c(0,1,0,0,0,0,1,0,0,0,0),
- value= sample.int(n=11))
- # A tibble: 11 x 4
- date signal value
- <date> <dbl> <int>
- 1 2019-07-17 0 1
- 2 2019-07-18 1 7
- 3 2019-07-19 0 5
- 4 2019-07-20 0 4
- 5 2019-07-21 0 10
- 6 2019-07-22 0 2
- 7 2019-07-23 1 9
- 8 2019-07-24 0 3
- 9 2019-07-25 0 11
- 10 2019-07-26 0 8
- 11 2019-07-27 0 6
- # A tibble: 11 x 4
- date signal value value_new
- <date> <dbl> <int> <dbl>
- 1 2019-07-17 0 1 NA
- 2 2019-07-18 1 7 NA
- 3 2019-07-19 0 5 5
- 4 2019-07-20 0 4 4
- 5 2019-07-21 0 10 NA
- 6 2019-07-22 0 2 NA
- 7 2019-07-23 1 9 NA
- 8 2019-07-24 0 3 3
- 9 2019-07-25 0 11 11
- 10 2019-07-26 0 8 NA
- 11 2019-07-27 0 6 NA
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement