https://stats-learn.com/en/r-learn/calculate-anticipated-worth-in-r-with-examples/