R/RcppExports.R

Defines functions ilr_basis ilr_basis_simplex ilr_to_alr clr_coordinates inv_clr_coordinates ilr_coordinates inv_ilr_coordinates ilr_coordinates_with_basis ddirmult dm_iter c_dm_fit mvf_multinom_const mvf_multinom_mult mvf mvf_deriv mvf_deriv2 logLike hessian mvf_maximum c_rnormal c_rmultinomial c_rnormalmultinomial expectedMonteCarlo expectedMonteCarloFast expectedMonteCarloFirstMoment expectedMetropolis expectedMonteCarlo_withoutAV

Documented in ilr_coordinates

# 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)
}
mcomas/normalmultinomial documentation built on May 22, 2019, 3:15 p.m.