R/RcppExports.R

In AntMAN: Anthology of Mixture Analysis Tools

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

IAM_mcmc_fit <- function(y, mix_kernel_hyperparams, initial_clustering, fixed_clustering, mix_components_prior, mix_weight_prior, mcmc_parameters) {
    .Call('_AntMAN_IAM_mcmc_fit', PACKAGE = 'AntMAN', y, mix_kernel_hyperparams, initial_clustering, fixed_clustering, mix_components_prior, mix_weight_prior, mcmc_parameters)
}

compute_stirling <- function(n, gamma) {
    .Call('_AntMAN_compute_stirling', PACKAGE = 'AntMAN', n, gamma)
}

compute_stirling_ricor <- function(n, gamma) {
    .Call('_AntMAN_compute_stirling_ricor', PACKAGE = 'AntMAN', n, gamma)
}

compute_stirling_ricor_abs <- function(n, gamma) {
    .Call('_AntMAN_compute_stirling_ricor_abs', PACKAGE = 'AntMAN', n, gamma)
}

compute_stirling_ricor_log <- function(n, gamma) {
    .Call('_AntMAN_compute_stirling_ricor_log', PACKAGE = 'AntMAN', n, gamma)
}

VnkPoisson <- function(n, Lambda, gamma) {
    .Call('_AntMAN_VnkPoisson', PACKAGE = 'AntMAN', n, Lambda, gamma)
}

VnkNegBin <- function(n, r, p, gamma) {
    .Call('_AntMAN_VnkNegBin', PACKAGE = 'AntMAN', n, r, p, gamma)
}

VnkDelta <- function(n, Mstar, gamma) {
    .Call('_AntMAN_VnkDelta', PACKAGE = 'AntMAN', n, Mstar, gamma)
}

prior_K_Pois <- function(n, gamma, Lambda) {
    .Call('_AntMAN_prior_K_Pois', PACKAGE = 'AntMAN', n, gamma, Lambda)
}

prior_K_NegBin <- function(n, gamma, r, p) {
    .Call('_AntMAN_prior_K_NegBin', PACKAGE = 'AntMAN', n, gamma, r, p)
}

prior_K_Delta <- function(n, gamma, Mstar) {
    .Call('_AntMAN_prior_K_Delta', PACKAGE = 'AntMAN', n, gamma, Mstar)
}

find_gamma_Pois <- function(n, Lambda, Kstar, gam_min, gam_max, tolerance, max_iter = 30L) {
    .Call('_AntMAN_find_gamma_Pois', PACKAGE = 'AntMAN', n, Lambda, Kstar, gam_min, gam_max, tolerance, max_iter)
}

find_gamma_NegBin <- function(n, r, p, Kstar, gam_min, gam_max, tolerance, max_iter = 30L) {
    .Call('_AntMAN_find_gamma_NegBin', PACKAGE = 'AntMAN', n, r, p, Kstar, gam_min, gam_max, tolerance, max_iter)
}

find_gamma_Delta <- function(n, Mstar, Kstar, gam_min, gam_max, tolerance, max_iter = 30L) {
    .Call('_AntMAN_find_gamma_Delta', PACKAGE = 'AntMAN', n, Mstar, Kstar, gam_min, gam_max, tolerance, max_iter)
}