# 2 players:
corevertices234(c(-58,4,13))
# 3 players:
corevertices234(c(1,5,10,6,11,15,16)) # additive game
# 4 players:
corevertices234(c(0,0,0,0,4,3,5,2,4,5,10,19,20,30,100)) # convex game
corevertices234(c(0,0,0,0,1,2,1,1,1,1,4,3,2,1,7)) # not convex game
# What if the game is a cost game?
cost.v <- c(2,2,2,3,4,4,5) # cost game
-corevertices234(-cost.v) # core vertices of the cost game
Run the code above in your browser using DataLab