R/RcppExports.R

In donaldRwilliams/bggmMock: mock

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

Theta_continuous <- function(Y, iter, delta, epsilon, prior_only, explore, start, progress) {
    .Call(`_bggmMock_Theta_continuous`, Y, iter, delta, epsilon, prior_only, explore, start, progress)
}

sample_prior <- function(Y, iter, delta, epsilon, prior_only, explore, progress) {
    .Call(`_bggmMock_sample_prior`, Y, iter, delta, epsilon, prior_only, explore, progress)
}

mv_continuous <- function(Y, X, delta, epsilon, iter, start, progress) {
    .Call(`_bggmMock_mv_continuous`, Y, X, delta, epsilon, iter, start, progress)
}

trunc_mvn <- function(mu, rinv, z, y, cutpoints) {
    .Call(`_bggmMock_trunc_mvn`, mu, rinv, z, y, cutpoints)
}

mv_binary <- function(Y, X, delta, epsilon, iter, beta_prior, cutpoints, start, progress) {
    .Call(`_bggmMock_mv_binary`, Y, X, delta, epsilon, iter, beta_prior, cutpoints, start, progress)
}

Sigma_i_not_i <- function(x, index) {
    .Call(`_bggmMock_Sigma_i_not_i`, x, index)
}

select_col <- function(x, index) {
    .Call(`_bggmMock_select_col`, x, index)
}

select_row <- function(x, index) {
    .Call(`_bggmMock_select_row`, x, index)
}

remove_row <- function(x, which) {
    .Call(`_bggmMock_remove_row`, x, which)
}

remove_col <- function(x, index) {
    .Call(`_bggmMock_remove_col`, x, index)
}

mv_ordinal_cowles <- function(Y, X, delta, epsilon, iter, MH) {
    .Call(`_bggmMock_mv_ordinal_cowles`, Y, X, delta, epsilon, iter, MH)
}

mv_ordinal_albert <- function(Y, X, iter, delta, epsilon, K, start, progress) {
    .Call(`_bggmMock_mv_ordinal_albert`, Y, X, iter, delta, epsilon, K, start, progress)
}

copula <- function(z0_start, levels, K, Sigma_start, iter, delta, epsilon, idx, progress) {
    .Call(`_bggmMock_copula`, z0_start, levels, K, Sigma_start, iter, delta, epsilon, idx, progress)
}

pcor_to_cor_internal <- function(x, p) {
    .Call(`_bggmMock_pcor_to_cor_internal`, x, p)
}

predictability_helper <- function(Y, y, XX, Xy, n, iter) {
    .Call(`_bggmMock_predictability_helper`, Y, y, XX, Xy, n, iter)
}

beta_helper_fast <- function(XX, Xy, p, iter) {
    .Call(`_bggmMock_beta_helper_fast`, XX, Xy, p, iter)
}

pred_helper_latent <- function(Y, XX, Xy, quantiles, n, iter) {
    .Call(`_bggmMock_pred_helper_latent`, Y, XX, Xy, quantiles, n, iter)
}

KL_univariate <- function(var_1, var_2) {
    .Call(`_bggmMock_KL_univariate`, var_1, var_2)
}

ppc_helper_nodewise_fast <- function(Theta, n1, n2, p) {
    .Call(`_bggmMock_ppc_helper_nodewise_fast`, Theta, n1, n2, p)
}

KL_divergnece_mvn <- function(Theta_1, Theta_2) {
    .Call(`_bggmMock_KL_divergnece_mvn`, Theta_1, Theta_2)
}

sum_squares <- function(Rinv_1, Rinv_2) {
    .Call(`_bggmMock_sum_squares`, Rinv_1, Rinv_2)
}

my_dnorm <- function(x, means, sds) {
    .Call(`_bggmMock_my_dnorm`, x, means, sds)
}

hamming_distance <- function(Rinv_1, Rinv_2, df1, df2, dens, pcors, BF_cut) {
    .Call(`_bggmMock_hamming_distance`, Rinv_1, Rinv_2, df1, df2, dens, pcors, BF_cut)
}

correlation <- function(Rinv_1, Rinv_2) {
    .Call(`_bggmMock_correlation`, Rinv_1, Rinv_2)
}

ppc_helper_fast <- function(Theta, n1, n2, p, BF_cut, dens, ppc_ss, ppc_cors, ppc_hd) {
    .Call(`_bggmMock_ppc_helper_fast`, Theta, n1, n2, p, BF_cut, dens, ppc_ss, ppc_cors, ppc_hd)
}