# NOT RUN {
library(CoopGame)
perCapitaNucleolus(c(1, 1, 1, 2, 3, 4, 5))
# }
# NOT RUN {
#Example from YOUNG 1985, p. 68
v<-costSharingGameVector(n=3,C=c(15,20,55,35,61,65,78))
perCapitaNucleolus(v)
#[1] 0.6666667 1.1666667 10.1666667
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab