Skip to main content

Browse the archive

https://github.com/cran/kappalab
21 January 2020, 12:57:37 UTC
Revision ae2ad5439030b8cd8cbcce14661b07cebad47461 authored by Ivan Kojadinovic on 01 October 2007, 00:00:00 UTC, committed by Gabor Csardi on 01 October 2007, 00:00:00 UTC 
version 0.4-0
1 parent c35c321
Raw File
Tip revision: ae2ad5439030b8cd8cbcce14661b07cebad47461 authored by Ivan Kojadinovic on 01 October 2007, 00:00:00 UTC
version 0.4-0
Tip revision: ae2ad54
veto-methods.R 
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)
back to top