R/RcppExports.R

In bsvars: Bayesian Estimation of Structural Vector Autoregressive Models

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

Ergodic_PR_TR <- function(PR_TR) {
    .Call(`_bsvars_Ergodic_PR_TR`, PR_TR)
}

count_regime_transitions <- function(xi) {
    .Call(`_bsvars_count_regime_transitions`, xi)
}

rDirichlet1 <- function(alpha) {
    .Call(`_bsvars_rDirichlet1`, alpha)
}

rIG2_Dirichlet1 <- function(s, nu) {
    .Call(`_bsvars_rIG2_Dirichlet1`, s, nu)
}

filtering_msh <- function(U, sigma, PR_TR, pi_0) {
    .Call(`_bsvars_filtering_msh`, U, sigma, PR_TR, pi_0)
}

smoothing_msh <- function(U, PR_TR, filtered) {
    .Call(`_bsvars_smoothing_msh`, U, PR_TR, filtered)
}

sample_Markov_process_msh <- function(aux_xi, U, aux_sigma2, aux_PR_TR, aux_pi_0, finiteM = TRUE) {
    .Call(`_bsvars_sample_Markov_process_msh`, aux_xi, U, aux_sigma2, aux_PR_TR, aux_pi_0, finiteM)
}

sample_transition_probabilities <- function(aux_PR_TR, aux_pi_0, aux_xi, prior, MSnotMIX = TRUE) {
    .Call(`_bsvars_sample_transition_probabilities`, aux_PR_TR, aux_pi_0, aux_xi, prior, MSnotMIX)
}

sample_variances_msh <- function(aux_sigma2, aux_B, aux_A, Y, X, aux_xi, prior) {
    .Call(`_bsvars_sample_variances_msh`, aux_sigma2, aux_B, aux_A, Y, X, aux_xi, prior)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call(`_bsvars_RcppExport_registerCCallable`)
})