powered by
Kantorovich distance using the ompr package
ompr
kantorovich_ompr(mu, nu, dist = NULL, solution = FALSE, stop_if_fail = TRUE)
(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; if TRUE the solution is returned in the "solution" attributes of the output
TRUE
"solution"
logical; if TRUE, an error is returned in the case when no solution is found; if FALSE, the output of solve_model is returned with a warning
FALSE
solve_model
mu <- c(1/7,2/7,4/7) nu <- c(1/4,1/4,1/2) kantorovich_ompr(mu, nu)
Run the code above in your browser using DataLab