## a capacity
mu <- capacity(0:15/15)
mu
rnd(mu,2)
## a similar example with a Mobius.capacity object
a <- Mobius(mu)
a
rnd(a,1)
## a similar example with a card.capacity object
mu <- uniform.capacity(6)
mu
rnd(mu)
Run the code above in your browser using DataLab