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

1 | ```
NucleolusCapita(x, type = "Gains")
``` |

`x` |
Object of class Game |

`type` |
Specify if the game refers to Gains or Cost |

The per capita nucleolus represents a measure of dissatisfaction per capita of such a coalition. It is also an individually rational distribution of the worth of the grand coalition in which the maximum per capita dissatisfaction is minimized. Formally, is defined like the nucleolus but taking into the account the per capita excess.

The command returns a table with the following elements:

`v(S)` |
Individual value of player |

`x(S)` |
Nucleolus solution of the player |

`Ei ` |
Excess of the player |

Sebastian Cano-Berlanga <cano.berlanga@gmail.com>

Lemaire J (1991). "Cooperative game theory and its insurance applications." Astin Bulletin, **21**(01), 17–40.

Schmeidler D (1969). "The Nucleolus of a characteristic function game." *SIAM Journal of Applied Mathematics*, **17**, pp.1163–1170.

1 2 3 4 5 6 7 8 9 10 11 12 | ```
## DATA FROM LEMAIRE (1991)
# Begin defining the game
COALITIONS <- c(46125,17437.5,5812.5,69187.5,53812.5,30750,90000)
LEMAIRE<-DefineGame(3,COALITIONS)
# End defining the game
LEMAIRENUCLEOLUS<-NucleolusCapita(LEMAIRE)
summary(LEMAIRENUCLEOLUS)
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.