# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' @export
ilr_basis <- function(dim) {
.Call('normalmultinomial_ilr_basis', PACKAGE = 'normalmultinomial', dim)
}
#' @export
ilr_basis_simplex <- function(dim) {
.Call('normalmultinomial_ilr_basis_simplex', PACKAGE = 'normalmultinomial', dim)
}
#' @export
ilr_to_alr <- function(dim) {
.Call('normalmultinomial_ilr_to_alr', PACKAGE = 'normalmultinomial', dim)
}
clr_coordinates <- function(X) {
.Call('normalmultinomial_clr_coordinates', PACKAGE = 'normalmultinomial', X)
}
inv_clr_coordinates <- function(clrX) {
.Call('normalmultinomial_inv_clr_coordinates', PACKAGE = 'normalmultinomial', clrX)
}
ilr_coordinates <- function(X) {
.Call('normalmultinomial_ilr_coordinates', PACKAGE = 'normalmultinomial', X)
}
inv_ilr_coordinates <- function(ilrX) {
.Call('normalmultinomial_inv_ilr_coordinates', PACKAGE = 'normalmultinomial', ilrX)
}
#' @export
ilr_coordinates_with_basis <- function(X, B) {
.Call('normalmultinomial_ilr_coordinates_with_basis', PACKAGE = 'normalmultinomial', X, B)
}
#' @export
ddirmult <- function(x, alpha) {
.Call('normalmultinomial_ddirmult', PACKAGE = 'normalmultinomial', x, alpha)
}
dm_iter <- function(X, alpha) {
.Call('normalmultinomial_dm_iter', PACKAGE = 'normalmultinomial', X, alpha)
}
c_dm_fit <- function(X, eps = 0.0001, maxiter = 5000L) {
.Call('normalmultinomial_c_dm_fit', PACKAGE = 'normalmultinomial', X, eps, maxiter)
}
mvf_multinom_const <- function(x) {
.Call('normalmultinomial_mvf_multinom_const', PACKAGE = 'normalmultinomial', x)
}
mvf_multinom_mult <- function(a, x) {
.Call('normalmultinomial_mvf_multinom_mult', PACKAGE = 'normalmultinomial', a, x)
}
mvf <- function(a, mu, inv_sigma, x) {
.Call('normalmultinomial_mvf', PACKAGE = 'normalmultinomial', a, mu, inv_sigma, x)
}
mvf_deriv <- function(I, a, mu, inv_sigma, x) {
.Call('normalmultinomial_mvf_deriv', PACKAGE = 'normalmultinomial', I, a, mu, inv_sigma, x)
}
mvf_deriv2 <- function(I, J, a, mu, inv_sigma, x) {
.Call('normalmultinomial_mvf_deriv2', PACKAGE = 'normalmultinomial', I, J, a, mu, inv_sigma, x)
}
logLike <- function(X, A, mu, inv_sigma) {
.Call('normalmultinomial_logLike', PACKAGE = 'normalmultinomial', X, A, mu, inv_sigma)
}
hessian <- function(a, mu, inv_sigma, x) {
.Call('normalmultinomial_hessian', PACKAGE = 'normalmultinomial', a, mu, inv_sigma, x)
}
mvf_maximum <- function(x, mu, inv_sigma, eps, max_iter, prop) {
.Call('normalmultinomial_mvf_maximum', PACKAGE = 'normalmultinomial', x, mu, inv_sigma, eps, max_iter, prop)
}
c_rnormal <- function(n, mu, sigma) {
.Call('normalmultinomial_c_rnormal', PACKAGE = 'normalmultinomial', n, mu, sigma)
}
c_rmultinomial <- function(A, size, seed = 1L) {
.Call('normalmultinomial_c_rmultinomial', PACKAGE = 'normalmultinomial', A, size, seed)
}
c_rnormalmultinomial <- function(mu, sigma, size, seed) {
.Call('normalmultinomial_c_rnormalmultinomial', PACKAGE = 'normalmultinomial', mu, sigma, size, seed)
}
#' @export
expectedMonteCarlo <- function(x, mu_ilr, sigma_ilr, Z, mu_exp) {
.Call('normalmultinomial_expectedMonteCarlo', PACKAGE = 'normalmultinomial', x, mu_ilr, sigma_ilr, Z, mu_exp)
}
#' @export
expectedMonteCarloFast <- function(x, mu_ilr, sigma_ilr, Z, mu_exp) {
.Call('normalmultinomial_expectedMonteCarloFast', PACKAGE = 'normalmultinomial', x, mu_ilr, sigma_ilr, Z, mu_exp)
}
#' @export
expectedMonteCarloFirstMoment <- function(x, mu_ilr, sigma_ilr, Z, mu_exp) {
.Call('normalmultinomial_expectedMonteCarloFirstMoment', PACKAGE = 'normalmultinomial', x, mu_ilr, sigma_ilr, Z, mu_exp)
}
#' @export
expectedMetropolis <- function(x, mu_ilr, sigma_ilr, Z, mu_exp) {
.Call('normalmultinomial_expectedMetropolis', PACKAGE = 'normalmultinomial', x, mu_ilr, sigma_ilr, Z, mu_exp)
}
#' @export
expectedMonteCarlo_withoutAV <- function(x, mu_ilr, sigma_ilr, Z, mu_exp) {
.Call('normalmultinomial_expectedMonteCarlo_withoutAV', PACKAGE = 'normalmultinomial', x, mu_ilr, sigma_ilr, Z, mu_exp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.