Calculate expected payout to the observer

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)

Arguments

pr_rk_aj	A matrix of posterior probabilities
pay_obs	The pay to the observer for guessing correctly.

Value

A vector of expected pays for each possible guess