## a normalized capacity
mu <- capacity(c(0:13/13,1,1))
## and its Mobius transform
a <- Mobius(mu)
## a discrete function f
f <- c(0.1,0.9,0.3,0.8)
## the Sugeno integral of f w.r.t mu
Sugeno.integral(mu,f)
Sugeno.integral(a,f)
## a similar example with a cardinal capacity
mu <- uniform.capacity(4)
Sugeno.integral(mu,f)
Run the code above in your browser using DataLab