The function calculates the expected payout to the decision maker. The payout
to the decision maker depends on whether or not the observer tries to guess
the rule, and the monetary payout for choosing an action that leaves the
observer clueless enough about the rule to refrain from guessing. The
function is meant for internal use only. To calculate the payout to the
decision maker, use the wrapper function calculate_payouts
.
calc_payout_dm(pr_guess, pay_dm)
A vector of expected payouts for each possible guess made by the observer
A vector of probabilities that the observer will guess.
The pay to the decision maker if the observer does not guess.