x <- matrix(c(0,-1,1,0,-1,1,0,0,1,0,-1,-1,0,1,0,0,
-1,1,0,-1,1,-1,0,0,0,1,1,0,-1,0,0,0,
1,0,-1,1,0,0,1,0,-1,-1,1,0,0,0,0,1,
0,0,0,0,-1,0,0,0,0,0,0,0,0,-1,0,0),
nrow=8,byrow=TRUE,)
colnames(x) <- c(1,2,3,4,5,6,8,9)
rownames(x) <- c(1,2,3,4,5,6,8,9)
dominance <- dvalue(x)
print(dominance)
Run the code above in your browser using DataLab