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