museumpassgame {TUGLab} | R Documentation |
Museum pass game
Description
This function returns the characteristic function of the described museum pass game.
Usage
museumpassgame(V, p = rep(1, dim(V)[2]), binary = FALSE)
Arguments
V |
A matrix of zeros and ones where each row represents a museum and each column represents a visitor. If museum |
p |
A vector containing the price that each visitor pays for their pass. By default, it is a vector of ones. |
binary |
A logical value. By default, |
Details
Let N
be a non-empty and finite set of museums and let U
be a non-empty and finite set of visitors.
The museum matrix, V\in \{0,1\}^{N \times U}
, specifies which museums are visited by which visitors: V_{ij}=1
if and only if museum i\in N
is visited by visitor j\in U
. The vector p\in\mathbb{R}^|U|_+
represents, for each visitor j
, the price they pay for their museum pass
(all passes are equal, in the sense that they grant access to the same set of museums, but the price may not be the same for all visitors).
The total revenue is to be divided among the museums. Given a museum pass situation (N,U,V,p)
, the museum pass game is defined by
v(S)=\sum_{j\in U:N^j\subset S}p_j \ \text{for each coalition } S \in 2^{N},
where N^j=\{i\in N:V_{ij}=1\}
is the set of museums visited by j\in U
.
Value
The characteristic function of the museum pass game, as a vector in binary order if binary=TRUE
and in lexicographic order otherwise.
References
Ginsburgh, V. & Zang, I. (2003). The museum pass game and its value. Games and economic behavior, 43(2), 322-325.
Examples
V <- rbind(c(1,0,1,1,0), c(0,1,1,1,0), c(1,1,0,0,1), c(1,0,1,0,1))
museumpassgame(V, p=c(1,1,4,5,8))