powered by
Calculate the egalitarian value
egalitarian(characteristic_func, n_players = 0)
The egalitarian value for each player
The valued function defined on the subsets of the number of players
Only used if characteristic_func is a function. The number of players in the game.
characteristic_func
function
n <- 10 v <- function(coalition) { if (length(coalition) > n/2) { return(1) } else { return(0) } } egalitarian(v,n)
Run the code above in your browser using DataLab