Advertisement
Guest User

Untitled

a guest
Jul 19th, 2019
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. df%>%mutate(calculation=ifelse(lag(signal)==1,
  2. value,
  3. NA))
  4.  
  5. set.seed(123)
  6.  
  7. df<-tibble(date=today()+0:10,
  8. signal=c(0,1,0,0,0,0,1,0,0,0,0),
  9. value= sample.int(n=11))
  10.  
  11. # A tibble: 11 x 4
  12. date signal value
  13. <date> <dbl> <int>
  14. 1 2019-07-17 0 1
  15. 2 2019-07-18 1 7
  16. 3 2019-07-19 0 5
  17. 4 2019-07-20 0 4
  18. 5 2019-07-21 0 10
  19. 6 2019-07-22 0 2
  20. 7 2019-07-23 1 9
  21. 8 2019-07-24 0 3
  22. 9 2019-07-25 0 11
  23. 10 2019-07-26 0 8
  24. 11 2019-07-27 0 6
  25.  
  26. # A tibble: 11 x 4
  27. date signal value value_new
  28. <date> <dbl> <int> <dbl>
  29. 1 2019-07-17 0 1 NA
  30. 2 2019-07-18 1 7 NA
  31. 3 2019-07-19 0 5 5
  32. 4 2019-07-20 0 4 4
  33. 5 2019-07-21 0 10 NA
  34. 6 2019-07-22 0 2 NA
  35. 7 2019-07-23 1 9 NA
  36. 8 2019-07-24 0 3 3
  37. 9 2019-07-25 0 11 11
  38. 10 2019-07-26 0 8 NA
  39. 11 2019-07-27 0 6 NA
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement