Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.