## a capacity
mu <- capacity(c(0,0,0,0:12)/12)
## its Mobius transform
a <- Mobius(mu)
## their normalized variance
variance(mu)
variance(a)
## similar examples with card.capacity objects
mu <- lower.capacity(4)
variance(mu)
mu <- uniform.capacity(4)
variance(mu)
Run the code above in your browser using DataLab