# NOT RUN {
library(CoopGame)
apexGameVector(n=3,apexPlayer=2)
# }
# NOT RUN {
library(CoopGame)
#Example with four players, apex player is number 3
(vv<-apexGame(n=4,apexPlayer=3))
#$n
#[1] 4
#$apexPlayer
#[1] 4
#$v
# [1] 0 0 0 0 0 1 0 1 0 1 1 1 1 1 1
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab