Nothing
library(kappalab)
a <- Mobius.game(c(0,runif(15)),4,4)
mu <- zeta(a)
f <- c(0.2,0.3,0.1,0.7)
stopifnot(abs(Choquet.integral(a,f) - Choquet.integral(mu,f)) < 1e-6)
stopifnot(abs(Sugeno.integral(a,f) - Sugeno.integral(mu,f)) < 1e-6)
f <- c(0.2,-0.3,0.1,-0.7)
stopifnot(abs(Sipos.integral(a,f) - Sipos.integral(mu,f)) < 1e-6)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.