R/RcppExports.R

In graphicalEvidence: Graphical Evidence

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

rgamma_compiled <- function(n, vec_shapes, vec_rates) {
    .Call(`_graphicalEvidence_rgamma_compiled`, n, vec_shapes, vec_rates)
}

mcmc_hw <- function(n, burnin, nmc, alpha, p, s_mat_nvec, scale_mat_nvec, g_mat_adj_nvec, gibbs_mat_nvec, init_gibbs_nvec) {
    .Call(`_graphicalEvidence_mcmc_hw`, n, burnin, nmc, alpha, p, s_mat_nvec, scale_mat_nvec, g_mat_adj_nvec, gibbs_mat_nvec, init_gibbs_nvec)
}

mcmc_hw_rmatrix <- function(n, burnin, nmc, p, prior, dof, lambda, s_mat_nvec, gibbs_mat_nvec) {
    .Call(`_graphicalEvidence_mcmc_hw_rmatrix`, n, burnin, nmc, p, prior, dof, lambda, s_mat_nvec, gibbs_mat_nvec)
}

mcmc_last_col <- function(n, burnin, nmc, p, alpha, fixed_last_col_nvec, s_mat_nvec, scale_mat_nvec, g_mat_adj_nvec, gibbs_mat_nvec, post_mean_omega_nvec) {
    .Call(`_graphicalEvidence_mcmc_last_col`, n, burnin, nmc, p, alpha, fixed_last_col_nvec, s_mat_nvec, scale_mat_nvec, g_mat_adj_nvec, gibbs_mat_nvec, post_mean_omega_nvec)
}

mcmc_last_col_rmatrix <- function(n, burnin, nmc, p, dof, lambda, prior, fixed_last_col_nvec, s_mat_nvec, tau_mat_nvec, gibbs_mat_nvec, post_mean_omega_nvec) {
    .Call(`_graphicalEvidence_mcmc_last_col_rmatrix`, n, burnin, nmc, p, dof, lambda, prior, fixed_last_col_nvec, s_mat_nvec, tau_mat_nvec, gibbs_mat_nvec, post_mean_omega_nvec)
}

prior_sampler_G_Wishart <- function(p, burnin, nmc, g_mat_adj_nvec, scale_mat_nvec, alpha) {
    .Call(`_graphicalEvidence_prior_sampler_G_Wishart`, p, burnin, nmc, g_mat_adj_nvec, scale_mat_nvec, alpha)
}

prior_sampler_rmatrix <- function(p, burnin, nmc, prior, lambda) {
    .Call(`_graphicalEvidence_prior_sampler_rmatrix`, p, burnin, nmc, prior, lambda)
}

set_cores <- function(cores) {
    invisible(.Call(`_graphicalEvidence_set_cores`, cores))
}

set_seed <- function(seed) {
    invisible(.Call(`_graphicalEvidence_set_seed`, seed))
}