Get 2x2 weighted payouts
get_2x2_weighted_payouts.RdGet 2x2 weighted payouts
get_2x2_weighted_payouts(payouts_list, weights)
Arguments
| payouts_list | List of payouts from get_2x2_payouts |
|---|---|
| weights | Vector used to weight payouts, in order of |
Examples
payouts_i <- get_2x2_payouts(3, 3, Cs = 2, Cd = 3, TRUE) payouts_ii <- get_2x2_payouts(3, 1, Cs = 2, Cd = 3, TRUE) weights <- c(0.5, 0.5) weighted_payouts <- get_2x2_weighted_payouts(list(payouts_i, payouts_ii), weights = weights) library(gridExtra) grid.arrange(get_2x2_ggplot(payouts_i, equilibria = TRUE), get_2x2_ggplot(payouts_ii, equilibria = TRUE), get_2x2_ggplot(weighted_payouts, equilibria = TRUE))
