R/RcppExports.R

In eheinzen/gibbs.utils: Utilities for Gibbs Sampling

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

impute_conj_mvnorm_mu_cpp <- function(y, mu, impute, Q, mu0, tau0) {
    .Call('_gibbs_utils_impute_conj_mvnorm_mu_cpp', PACKAGE = 'gibbs.utils', y, mu, impute, Q, mu0, tau0)
}

mh_binom <- function(qt, p, proposal, k, n, mean, precision, acceptance) {
    .Call('_gibbs_utils_mh_binom', PACKAGE = 'gibbs.utils', qt, p, proposal, k, n, mean, precision, acceptance)
}

mh_binom_mv <- function(qt, p, proposal, k, n, mean, Q, use_norm, norm, acceptance) {
    .Call('_gibbs_utils_mh_binom_mv', PACKAGE = 'gibbs.utils', qt, p, proposal, k, n, mean, Q, use_norm, norm, acceptance)
}

mh_multinom_mv <- function(qt, p_ij, proposal, z_ij, which_i, is_ref, k_ij, n_ij, mean, Q, Qdiag, use_norm, norm, diag, acceptance) {
    .Call('_gibbs_utils_mh_multinom_mv', PACKAGE = 'gibbs.utils', qt, p_ij, proposal, z_ij, which_i, is_ref, k_ij, n_ij, mean, Q, Qdiag, use_norm, norm, diag, acceptance)
}

mh_pois <- function(method, L, proposal, k, k_na, mean, mean_inf, precision, trunc_at, lower, acceptance) {
    .Call('_gibbs_utils_mh_pois', PACKAGE = 'gibbs.utils', method, L, proposal, k, k_na, mean, mean_inf, precision, trunc_at, lower, acceptance)
}

mh_pois_mv <- function(method, L, proposal, k, k_na, mean, Q, trunc_at, lower, use_norm, norm, acceptance) {
    .Call('_gibbs_utils_mh_pois_mv', PACKAGE = 'gibbs.utils', method, L, proposal, k, k_na, mean, Q, trunc_at, lower, use_norm, norm, acceptance)
}

one_binom_slice <- function(p, k, n, mean, precision, w, nexpand, ncontract) {
    .Call('_gibbs_utils_one_binom_slice', PACKAGE = 'gibbs.utils', p, k, n, mean, precision, w, nexpand, ncontract)
}

slice_sample_binom <- function(p, k, n, mean, precision, w, nexpand, ncontract) {
    .Call('_gibbs_utils_slice_sample_binom', PACKAGE = 'gibbs.utils', p, k, n, mean, precision, w, nexpand, ncontract)
}

slice_sample_binom_mv <- function(p, k, n, mean, Q, use_norm, norm, w, nexpand, ncontract) {
    .Call('_gibbs_utils_slice_sample_binom_mv', PACKAGE = 'gibbs.utils', p, k, n, mean, Q, use_norm, norm, w, nexpand, ncontract)
}

one_multinom_slice <- function(p_ij, sum_exp_p, z_ij, k, n, mean, precision, w, nexpand, ncontract) {
    .Call('_gibbs_utils_one_multinom_slice', PACKAGE = 'gibbs.utils', p_ij, sum_exp_p, z_ij, k, n, mean, precision, w, nexpand, ncontract)
}

slice_sample_multinom_mv <- function(p_ij, z_ij, which_i, is_ref, k_ij, n_ij, mean, Q, Qdiag, diag, use_norm, norm, w, nexpand, ncontract) {
    .Call('_gibbs_utils_slice_sample_multinom_mv', PACKAGE = 'gibbs.utils', p_ij, z_ij, which_i, is_ref, k_ij, n_ij, mean, Q, Qdiag, diag, use_norm, norm, w, nexpand, ncontract)
}

one_pois_slice <- function(L, k, mean, precision, trunc_at, lower, w, nexpand, ncontract) {
    .Call('_gibbs_utils_one_pois_slice', PACKAGE = 'gibbs.utils', L, k, mean, precision, trunc_at, lower, w, nexpand, ncontract)
}

slice_sample_pois <- function(L, k, k_na, mean, mean_inf, precision, trunc_at, lower, w, nexpand, ncontract) {
    .Call('_gibbs_utils_slice_sample_pois', PACKAGE = 'gibbs.utils', L, k, k_na, mean, mean_inf, precision, trunc_at, lower, w, nexpand, ncontract)
}

slice_sample_pois_mv <- function(L, k, k_na, mean, Q, trunc_at, lower, use_norm, norm, w, nexpand, ncontract) {
    .Call('_gibbs_utils_slice_sample_pois_mv', PACKAGE = 'gibbs.utils', L, k, k_na, mean, Q, trunc_at, lower, use_norm, norm, w, nexpand, ncontract)
}

accept_reject <- function(ratio) {
    .Call('_gibbs_utils_accept_reject', PACKAGE = 'gibbs.utils', ratio)
}