https://stats-learn.com/en/r-learn/book-positive-columns-in-r-with-examples/