Guest User

Untitled

a guest
May 24th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. v1 v2 v3
  2. ABC 0-10 3
  3. ABC 10-20 2
  4. ABC 20-30 4
  5. DEF 10-20 2.5
  6. DEF 20-30 3
  7. DEF 30-40 1.1
  8. DEF 40-50 2.7
  9. XYZ 40-50 2
  10. XYZ >50 1
  11.  
  12. v1 v2 v3
  13. ABC 0-10 3
  14. ABC 20-30 4
  15. DEF 10-20 2.5
  16. DEF 20-30 3
  17. XYZ 40-50 2
  18.  
  19. dat[with(dat, ave(v3, v1, FUN=function(x) sign(x - cummax(x)))) != -1,]
  20.  
  21. # v1 v2 v3
  22. #1 ABC 0-10 3.0
  23. #3 ABC 20-30 4.0
  24. #4 DEF 10-20 2.5
  25. #5 DEF 20-30 3.0
  26. #8 XYZ 40-50 2.0
Add Comment
Please, Sign In to add comment