Code
p <- matrix(c(0.10, 0.08, 0.02,
0.06, 0.30, 0.09,
0.02, 0.12, 0.21), nrow = 3, byrow = TRUE,
dimnames = list(y1 = c(-2, 0, 4), y2 = c(-1, 1, 3)))
y1 <- as.numeric(rownames(p)); y2 <- as.numeric(colnames(p))
Fjoint <- function(a, b) sum(p[y1 <= a, y2 <= b]) # Definition 5.2
c(min = min(p), total = sum(p), # Theorem 5.1
both_gain = sum(p[y1 > 0, y2 > 0]),
port_gain = sum(p[outer(y1, y2, "+") > 0]),
F01 = Fjoint(0, 1), F4m1 = Fjoint(4, -1)) min total both_gain port_gain F01 F4m1
0.02 1.00 0.33 0.76 0.54 0.18


