EPM_allocation {GameTheoryAllocation}

Equal Profit Method allocation

Description

This function gives the Equal Profit Method allocation described in Frisk et al. (2010).

Usage

EPM_allocation(characteristic_function, r = NA, info = NA, game = c("profit", "cost"))

Arguments

characteristic_function

A vector with the characteristic function v(S) (or c(S), if we work with a cost game), according to the order of coalitions shown in coalitions function.

r

Incremental step for calculating the EPM-allocation. If no solution is found, we increase iteratively in r units the allowed excess to get an epsilon-core allocation. Procedure stops when a solution is found.

info

For knowing information about the resolution, make info=1

game

Characters to indicate if the game is a cost or profit game. The possibles values are "cost" or "profit".

Value

A vector with the allocation that EPM method proposes.

Author(s)

A. Saavedra-Nieves

References

Frisk, M., Gothe-Lundgren, M.,Jornsten, K., Ronnqvist, M. (2010). Cost allocation in collaborative forest transportation. European Journal of Operational Research, Vol. 205, pp. 448-458.

Examples

characteristic_function<-c(0,0.538, 0.761, 1.742, 0.554, 0.137, 0.293, 0.343)
EPM_allocation(characteristic_function,r=0.01,info=1,game="cost")
#[1] "EPM_allocation"
#[1] "The cost game has a non-empty core"
#     1     2     3
#  0.05 0.206 0.087