R/RcppExports.R

In SoftBart: Implements the SoftBart Algorithm

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

rmvnorm <- function(mean, Precision) {
    .Call('_SoftBart_rmvnorm', PACKAGE = 'SoftBart', mean, Precision)
}

choll <- function(Sigma) {
    .Call('_SoftBart_choll', PACKAGE = 'SoftBart', Sigma)
}

update_sigma <- function(r, sigma_hat, sigma_old, temperature) {
    .Call('_SoftBart_update_sigma', PACKAGE = 'SoftBart', r, sigma_hat, sigma_old, temperature)
}

rlgam <- function(shape) {
    .Call('_SoftBart_rlgam', PACKAGE = 'SoftBart', shape)
}

SoftBart <- function(X, Y, X_test, group, alpha, beta, gamma, sigma, shape, width, num_tree, sigma_hat, k, alpha_scale, alpha_shape_1, alpha_shape_2, tau_rate, num_tree_prob, temperature, weights, num_burn, num_thin, num_save, num_print, update_sigma_mu, update_s, update_alpha, update_beta, update_gamma, update_tau, update_tau_mean, update_num_tree, update_sigma) {
    .Call('_SoftBart_SoftBart', PACKAGE = 'SoftBart', X, Y, X_test, group, alpha, beta, gamma, sigma, shape, width, num_tree, sigma_hat, k, alpha_scale, alpha_shape_1, alpha_shape_2, tau_rate, num_tree_prob, temperature, weights, num_burn, num_thin, num_save, num_print, update_sigma_mu, update_s, update_alpha, update_beta, update_gamma, update_tau, update_tau_mean, update_num_tree, update_sigma)
}

do_mh <- function(loglik_new, loglik_old, new_to_old, old_to_new) {
    .Call('_SoftBart_do_mh', PACKAGE = 'SoftBart', loglik_new, loglik_old, new_to_old, old_to_new)
}