R/RcppExports.R

In T4transport: Tools for Computational Optimal Transport

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

compute_pdist2 <- function(X, Y) {
    .Call(`_T4transport_compute_pdist2`, X, Y)
}

cpp_mvrnorm <- function(n, mu, cov) {
    .Call(`_T4transport_cpp_mvrnorm`, n, mu, cov)
}

cpp_ipot20 <- function(a, b, dab, lambda, p, maxiter, abstol, L) {
    .Call(`_T4transport_cpp_ipot20`, a, b, dab, lambda, p, maxiter, abstol, L)
}

cpp_pwdist <- function(X, p, Y, q, maxiter, abstol) {
    .Call(`_T4transport_cpp_pwdist`, X, p, Y, q, maxiter, abstol)
}

cpp_sinkhorn13 <- function(a, b, dab, lambda, p, maxiter, abstol) {
    .Call(`_T4transport_cpp_sinkhorn13`, a, b, dab, lambda, p, maxiter, abstol)
}

cpp_barybregman15 <- function(listdXY, marginals, weights, p, lambda, maxiter, abstol, printer, initvec) {
    .Call(`_T4transport_cpp_barybregman15`, listdXY, marginals, weights, p, lambda, maxiter, abstol, printer, initvec)
}

cpp_fixed_sinkhorn14 <- function(listdXY, marginals, weights, p, lambda, maxiter, abstol, printer, initvec) {
    .Call(`_T4transport_cpp_fixed_sinkhorn14`, listdXY, marginals, weights, p, lambda, maxiter, abstol, printer, initvec)
}

cpp_free_bary_gradient <- function(measures, marginals, weights, num_support, maxiter, abstol) {
    .Call(`_T4transport_cpp_free_bary_gradient`, measures, marginals, weights, num_support, maxiter, abstol)
}

cpp_single_barycenter <- function(measures, marginals, weights, init_support) {
    .Call(`_T4transport_cpp_single_barycenter`, measures, marginals, weights, init_support)
}

cpp_free_bary_gradient_init <- function(measures, marginals, weights, maxiter, abstol, init_support) {
    .Call(`_T4transport_cpp_free_bary_gradient_init`, measures, marginals, weights, maxiter, abstol, init_support)
}

cpp_free_median_PF <- function(measures, marginals, weights, maxiter, abstol, init_support) {
    .Call(`_T4transport_cpp_free_median_PF`, measures, marginals, weights, maxiter, abstol, init_support)
}

gauss_weiszfeld <- function(X, weights, abstol, maxiter) {
    .Call(`_T4transport_gauss_weiszfeld`, X, weights, abstol, maxiter)
}

gauss_spdbary16A <- function(array3d, weight, abstol, maxiter) {
    .Call(`_T4transport_gauss_spdbary16A`, array3d, weight, abstol, maxiter)
}

gauss_median_general <- function(mean2d, array3d, weight, abstol, maxiter) {
    .Call(`_T4transport_gauss_median_general`, mean2d, array3d, weight, abstol, maxiter)
}

gauss_median_centered <- function(array3d, weight, abstol, maxiter) {
    .Call(`_T4transport_gauss_median_centered`, array3d, weight, abstol, maxiter)
}

cpp_gwdist <- function(Dx, Dy, p, q, maxiter, abstol, method) {
    .Call(`_T4transport_cpp_gwdist`, Dx, Dy, p, q, maxiter, abstol, method)
}

cpp_gwbary <- function(Ds, marginals, weights, init_D, maxiter, abstol, method) {
    .Call(`_T4transport_cpp_gwbary`, Ds, marginals, weights, init_D, maxiter, abstol, method)
}

routine_bary14C <- function(dxy, marginals, weights, p, lambda, maxiter, abstol, printer, initvec, nthread) {
    .Call(`_T4transport_routine_bary14C`, dxy, marginals, weights, p, lambda, maxiter, abstol, printer, initvec, nthread)
}

routine_bary15B <- function(dxy, marginals, weights, p, lambda, maxiter, abstol, printer, initvec, nthread) {
    .Call(`_T4transport_routine_bary15B`, dxy, marginals, weights, p, lambda, maxiter, abstol, printer, initvec, nthread)
}

util_plan_entropic <- function(a, b, C, lambda, maxiter, abstol) {
    .Call(`_T4transport_util_plan_entropic`, a, b, C, lambda, maxiter, abstol)
}

util_mvrnorm <- function(par_mean, par_cov, num_samples) {
    .Call(`_T4transport_util_mvrnorm`, par_mean, par_cov, num_samples)
}

util_pairwise_sqdist <- function(X, Y) {
    .Call(`_T4transport_util_pairwise_sqdist`, X, Y)
}

util_pairwise_dist <- function(X) {
    .Call(`_T4transport_util_pairwise_dist`, X)
}

util_cmds <- function(D, k) {
    .Call(`_T4transport_util_cmds`, D, k)
}

util_plan_emd_C <- function(a, b, C) {
    .Call(`_T4transport_util_plan_emd_C`, a, b, C)
}

util_dual_emd_C <- function(a, b, C, return_plan = FALSE) {
    .Call(`_T4transport_util_dual_emd_C`, a, b, C, return_plan)
}