https://yannickbijl.github.io/posts/negative-selection-in-r/