Nothing
tests/veto-methods.R
In kappalab: Non-Additive Measure and Integral Manipulation Functions
library(kappalab)
x <- runif(15)
for (i in 2:15)
x[i] <- x[i] + x[i-1]
mu <- capacity(c(0,x))
a <- Mobius(mu)
stopifnot(abs(favor(mu) - favor(a)) < 1e-6)
mu <- card.capacity(c(0,x[1:7]))
stopifnot(abs(favor(mu) - favor(as.capacity(mu))) < 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)
x <- runif(15)
for (i in 2:15)
x[i] <- x[i] + x[i-1]
mu <- capacity(c(0,x))
a <- Mobius(mu)
stopifnot(abs(favor(mu) - favor(a)) < 1e-6)
mu <- card.capacity(c(0,x[1:7]))
stopifnot(abs(favor(mu) - favor(as.capacity(mu))) < 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.