# NOT RUN {
library(CoopGame)
coreCoverVertices(c(0,0,0,1,1,1,3))
# }
# NOT RUN {
library(CoopGame)
v <- c(0,0,0,3,3,3,6)
coreCoverVertices(v)
# [,1] [,2] [,3]
# [1,] 3 0 3
# [2,] 0 3 3
# [3,] 3 3 0
# }
Run the code above in your browser using DataLab