## a capacity
mu <- capacity(c(0:13,13,13)/13)
## its Mobius transform
a <- Mobius(mu)
## their veto indices
veto(mu)
veto(a)
## the same with a card.capacity object
mu <- lower.capacity(4)
veto(mu)
Run the code above in your browser using DataLab