## the Mobius transform of a capacity
a <- Mobius.capacity(c(rep(0,15),1),4,4)
a
## its zeta transform
zeta(a)
## let us check
Mobius(zeta(a))
## a similar example with a Mobius.card.set.func object
mu <- card.set.func(-3:4)
a <- Mobius(mu)
zeta(a)
Run the code above in your browser using DataLab