## a set function
mu <- set.func(c(-7:6,6,6))
## the associated interaction indices
interaction.indices(mu)
## a similar example using a Mobius.set.func object
a <- Mobius(mu)
interaction.indices(a)
## a similar example using a card.set.func object
mu <- upper.capacity(6)
interaction.indices(mu)
Run the code above in your browser using DataLab