R/RcppExports.R

Defines functions init_thetas init_alphas init_deltas init_taus .ggumMC3 .ggumMCMC prob probCol probRow .ggum_simulation summarize_matrix .tune_proposals .tune_temperatures

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

init_thetas <- function(n, mean, sd) {
    .Call('_bggum_init_thetas', PACKAGE = 'bggum', n, mean, sd)
}

init_alphas <- function(m, shape1, shape2, a, b) {
    .Call('_bggum_init_alphas', PACKAGE = 'bggum', m, shape1, shape2, a, b)
}

init_deltas <- function(m, shape1, shape2, a, b) {
    .Call('_bggum_init_deltas', PACKAGE = 'bggum', m, shape1, shape2, a, b)
}

init_taus <- function(m, shape1, shape2, a, b, K) {
    .Call('_bggum_init_taus', PACKAGE = 'bggum', m, shape1, shape2, a, b, K)
}

.ggumMC3 <- function(data, iters, burn_iters, N, W, flip_interval, temps, thetas, alphas, deltas, taus, n, m, K, SDs, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b) {
    .Call('_bggum_ggumMC3', PACKAGE = 'bggum', data, iters, burn_iters, N, W, flip_interval, temps, thetas, alphas, deltas, taus, n, m, K, SDs, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b)
}

.ggumMCMC <- function(data, n, m, iterations, burn_iterations, flip_interval, thetas, alphas, deltas, taus, K, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b, SDs) {
    .Call('_bggum_ggumMCMC', PACKAGE = 'bggum', data, n, m, iterations, burn_iterations, flip_interval, thetas, alphas, deltas, taus, K, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b, SDs)
}

prob <- function(choice, th, a, d, t) {
    .Call('_bggum_prob', PACKAGE = 'bggum', choice, th, a, d, t)
}

probCol <- function(choices, thetas, a, d, t) {
    .Call('_bggum_probCol', PACKAGE = 'bggum', choices, thetas, a, d, t)
}

probRow <- function(choices, th, a, d, t) {
    .Call('_bggum_probRow', PACKAGE = 'bggum', choices, th, a, d, t)
}

.ggum_simulation <- function(n, m, K, theta, alpha, delta, tau) {
    .Call('_bggum_ggum_simulation', PACKAGE = 'bggum', n, m, K, theta, alpha, delta, tau)
}

summarize_matrix <- function(x) {
    .Call('_bggum_summarize_matrix', PACKAGE = 'bggum', x)
}

.tune_proposals <- function(responseMatrix, thetas, alphas, deltas, taus, K, tune_iters, n, m, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b) {
    .Call('_bggum_tune_proposals', PACKAGE = 'bggum', responseMatrix, thetas, alphas, deltas, taus, K, tune_iters, n, m, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b)
}

.tune_temperatures <- function(data, n_temps, temp_tune_iters, n_draws, n, m, K, SDs, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b) {
    .Call('_bggum_tune_temps', PACKAGE = 'bggum', data, n_temps, temp_tune_iters, n_draws, n, m, K, SDs, th_prior_mean, th_prior_sd, a_shape1, a_shape2, a_a, a_b, d_shape1, d_shape2, d_a, d_b, t_shape1, t_shape2, t_a, t_b)
}
duckmayr/bggum documentation built on Jan. 20, 2020, 5:23 a.m.