## a capacity
mu <- capacity(0:15)
is.normalized(mu)
normalize(mu)
## its Mobius transform
a <- Mobius(mu)
is.normalized(a)
normalize(a)
## a cardinal capacity
mu <- uniform.capacity(7)
is.normalized(mu)
Run the code above in your browser using DataLab