Nothing
tests/Mobius.game-class.R
In kappalab: Non-Additive Measure and Integral Manipulation Functions
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)
Try the kappalab package in your browser
Any scripts or data that you put into this service are public.
kappalab documentation built on Nov. 8, 2023, 1:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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)
Try the kappalab package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.