https://stats-learn.com/en/r-learn/methods-to-practice-bayes-theorem-in-r/