coopProductGame (version 2.0)

nucleolus: Nucleolus solution

Description

This function computes the nucleolus solution of a game with a maximum of 4 agents.

Usage

nucleolus(game, show.data = FALSE)

Arguments

game

a vector that represents the cooperative game.

show.data

logical value indicating if the function displays the console output (TRUE) or not (FALSE). By default the value is FALSE.

Value

nucleolus returns and prints the Nucleolus Solution of associated cooperative game.

Examples

# NOT RUN {
# Cooperative game
game <- c(68, 102, 0, 170, 710, 762, 992)
# Nucleolus solution
nucleolus(game, show.data = TRUE)

 # ------------------------
 # Nucleolus Solution
 # ------------------------
 # [1] "(149, 192, 651)"
  
# }