R/RcppExports.R

In waspr: Wasserstein Barycenters of Subset Posteriors

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

#' The swapping algorithm for computing Wasserstein barycenters
#'
#' @name swap_rcpp
#'
#' @param samples A cube containing samples for all subset posteriors (rows =
#'   subsets, columns = par, slices = samples)
#' @param acc accuracy
#' @param iter maximum number of iterations of the algorithm
#' @param out boolean indicating whether output for each iteration should be displayed (default = false)
#'
#' @return a three dimensional array (rows = subsets, columns = par, slices =
#'   samples) containing output from the swapping algorithm.
#'
swap_rcpp <- function(samples, acc = 0.001, iter = 10L, out = FALSE) {
    .Call(`_waspr_swap_rcpp`, samples, acc, iter, out)
}

hmode <- function(x, cip) {
    .Call(`_waspr_hmode`, x, cip)
}

hmodeci <- function(x, cip) {
    .Call(`_waspr_hmodeci`, x, cip)
}