https://stats-learn.com/en/r-learn/accumulation-sampling-in-r-with-examples/