The function calculates the expected payout to the observer. The payout to
the observer depends on the posterior probabilities, i.e. the probability
of a rule conditional on observing an action, and the monetary payout for
guessing correctly. The function is meant for internal use only. To calculate
the payout to the observer, use the wrapper function
calculate_payouts
.
calc_payout_obs(pr_rk_aj, pay_obs)
A vector of expected pays for each possible guess
A matrix of posterior probabilities
The pay to the observer for guessing correctly.