# NOT RUN {
library(CoopGame)
isNonnegativeGame(c(0,0,0,0.5,0.1,0.4,1))
# }
# NOT RUN {
#Nonnegative game
library(CoopGame)
v1<-c(0,0,0,0,1,1,1)
isNonnegativeGame(v1)
#Example for game which is not nonnegative
library(CoopGame)
v2<-c(0,0,0,0,-1.1,1,2)
isNonnegativeGame(v2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab