powered by
Kantorovich distance using the lpSolve package
lpSolve
kantorovich_lp(mu, nu, dist = NULL, solution = FALSE, lp.object = FALSE, ...)
(row margins) probability measure in numeric mode
(column margins) probability measure in numeric mode
matrix, the distance to be minimized on average; if NULL, the 0-1 distance is used.
NULL
logical, to use only if lp.object=FALSE; if TRUE the solution is returned in the "solution" attributes of the output
lp.object=FALSE
TRUE
"solution"
logical, if FALSE, the output is the Kantorovich distance; if TRUE, the output is a lp.object
FALSE
lp.object
arguments passed to lp
lp
mu <- c(1/7,2/7,4/7) nu <- c(1/4,1/4,1/2) kantorovich_lp(mu, nu)
Run the code above in your browser using DataLab