# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.