get_2x2_weighted_payouts: Get 2x2 weighted payouts

In gopalpenny/nitratesgame:

Get 2x2 weighted payouts

Description

Get 2x2 weighted payouts

Usage

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))

gopalpenny/nitratesgame documentation built on July 8, 2023, 6:10 p.m.