kantorovich (version 1.0.0)

ejoinings: Extreme joinings

Description

Return extreme joinings between mu and nu

Usage

ejoinings(mu, nu, zeros = FALSE)

Arguments

mu

row margins

nu

column margins

zeros

logical; in case when mu and nu have differente lengths, set FALSE to remove lines or columns full of zeros

Value

• a list with the extreme joinings (matrices)

Examples

mu <- nu <- c(0.5, 0.5)
ejoinings(mu, nu)
# use exact arithmetic
library(gmp)
mu <- nu <- as.bigq(c(0.5,0.5))
ejoinings(mu, nu)
# different lengths example
mu <- setNames(as.bigq(c(1,2,4), 7), c("a", "b", "c"))
nu <- setNames(as.bigq(c(3,1), 4), c("b", "c"))
ejoinings(mu, nu)