# NOT RUN {
library(CoopGame)
rawBanzhafIndex(apexGameVector(n=3, apexPlayer=1))
# }
# NOT RUN {
v<- apexGameVector(n = 4,apexPlayer=3)
rawBanzhafIndex(v)
#[1] 2 2 6 2
#N=c(1,2,3), w=(50,49,1), q=51
v=weightedVotingGameVector(n=3, w=c(50,49,1),q=51)
rawBanzhafIndex(v)
#[1] 3 1 1
v<-weightedVotingGameVector(n=3,w=c(50,30,20),q=c(67))
rawBanzhafIndex(v)
#[1] 3 1 1
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab