# NOT RUN {
library(CoopGame)
isSimpleGame(c(0,0,0,1,0,1,1))
# }
# NOT RUN {
#Example of a simple game
library(CoopGame)
v1<-c(0,0,0,0,1,1,1)
isSimpleGame(v1)
#Example of a game which not simple
library(CoopGame)
v2<-c(0,0,0,0,1,1,2)
isSimpleGame(v2)
#Another example of a game which not simple
#according to our definition
library(CoopGame)
v3<-c(1,0,0,0,1,1,1)
isSimpleGame(v3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab