# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
pinv <- function(X) {
.Call(`_coda_base_pinv`, X)
}
c_variation_array <- function(X, include_means = FALSE) {
.Call(`_coda_base_c_variation_array`, X, include_means)
}
alr_basis_default <- function(dim) {
.Call(`_coda_base_alr_basis_default`, dim)
}
clr_basis_default <- function(dim) {
.Call(`_coda_base_clr_basis_default`, dim)
}
ilr_basis_default <- function(dim) {
.Call(`_coda_base_ilr_basis_default`, dim)
}
ilr_basis_simplex <- function(dim) {
.Call(`_coda_base_ilr_basis_simplex`, dim)
}
ilr_to_alr <- function(dim) {
.Call(`_coda_base_ilr_to_alr`, dim)
}
clr_coordinates <- function(X) {
.Call(`_coda_base_clr_coordinates`, X)
}
inv_clr_coordinates <- function(clrX) {
.Call(`_coda_base_inv_clr_coordinates`, clrX)
}
alr_coordinates <- function(X, denominator) {
.Call(`_coda_base_alr_coordinates`, X, denominator)
}
matrix_coordinates <- function(X, B) {
.Call(`_coda_base_matrix_coordinates`, X, B)
}
sparse_coordinates <- function(X, B) {
.Call(`_coda_base_sparse_coordinates`, X, B)
}
coordinates_basis <- function(X, B, sparse = FALSE) {
.Call(`_coda_base_coordinates_basis`, X, B, sparse)
}
ilr_coordinates <- function(X) {
.Call(`_coda_base_ilr_coordinates`, X)
}
inv_ilr_coordinates <- function(ilrX) {
.Call(`_coda_base_inv_ilr_coordinates`, ilrX)
}
get_balance_using_pc <- function(X) {
.Call(`_coda_base_get_balance_using_pc`, X)
}
find_PB <- function(X) {
.Call(`_coda_base_find_PB`, X)
}
find_PB_using_pc <- function(X) {
.Call(`_coda_base_find_PB_using_pc`, X)
}
find_PB_using_pc_recursively <- function(X) {
.Call(`_coda_base_find_PB_using_pc_recursively`, X)
}
find_PB_using_pc_recursively_forcing_parents <- function(X) {
.Call(`_coda_base_find_PB_using_pc_recursively_forcing_parents`, X)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.