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)

pr_rk_aj | A matrix of posterior probabilities |
---|---|

pay_obs | The pay to the observer for guessing correctly. |

A vector of expected pays for each possible guess